Ребята помогите! Решать пыталась,но прога выводит ошибки! Найти все четырехзначные натуральные числа, у которых сумма крайних цифр равна сумме сред-них цифр, а само число делится на число А.!!!
Выводить надо их?
владимир в условии просто число а. его не нужно выводить чисто прога
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.
а последнее условие
Откуда мне знать что это за число A?
ну скорее всего его надо спросить у пользователя)