Ребята помогите! Решать пыталась,но прога выводит ошибки! Найти все четырехзначные натуральные числа, у которых сумма крайних цифр равна сумме сред-них цифр, а само число делится на число А.!!!
More Questions From This User See All
Ребята помогите! Решать пыталась,но прога выводит ошибки! Найти все четырехзначные натуральные числа, у которых сумма крайних цифр равна сумме сред-них цифр, а само число делится на число А.!!!
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.