Ребята помогите! Решать пыталась,но прога выводит ошибки! Найти все четырехзначные натуральные числа, у которых сумма крайних цифр равна сумме сред-них цифр, а само число делится на число А.!!!
Ребята помогите! Решать пыталась,но прога выводит ошибки! Найти все четырехзначные натуральные числа, у которых сумма крайних цифр равна сумме сред-них цифр, а само число делится на число А.!!!
Гость
Ответ(ы) на вопрос:
Гостьprogram Task1;
var
a,b,c,d,i: integer;
begin
for i:= 1000 to 9999 do
begin
a := i mod 10;
b := i div 10 mod 10;
c := i div 100 mod 10;
d := i div 1000 mod 10;
if (a + d = b + c ) then
writeln(i);
end;
end.
Не нашли ответ?
Похожие вопросы