Напишите программу поиска всех трёхзначных чисел, сумма цифр которых и само число кратны 7 Paskal

Question

Григорий Зуев

Информатика

24 июня, 08:19

Напишите программу поиска всех трёхзначных чисел, сумма цифр которых и само число кратны 7 Paskal

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Марина Майорова · Answer 1

Program n1;

var i : integer;

begin

for i:=100 to 999 do begin

if ((i div 100 + i mod 10 + (i div 10) mod 10) mod 7=0) and (i mod 7=0) then

writeln (i);

end;

end.