Напишите программу поиска всех трёхзначных чисел, сумма цифр которых и само число кратны 7 Paskal
Ответы:
15-10-2014 00:11
vari, j, k: longint;beginfor 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.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Напишите программу поиска всех трёхзначных чисел, сумма цифр которых и само число кратны 7 Paskal» от пользователя evelina Sidorenko в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!