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

Question

Информатика

Марлен

29 декабря, 03:49

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

+3

Ответы (1)

Знаете ответ на вопрос?

Вонифат · Answer 1

Var

i, j, k: longint;

begin

for i : = 1 to 9 do

for j : = 0 to 9 do

for k : = 0 to 9 do

if ((i + j + k) mod 7 = 0) and ((100*i+10*j+k) mod 7 = 0) then

writeln (i, j, k) ;

end.