Составье програму вычесления суммы всех трехзначных чисел, кратных 17?

Question

54

в избранное ссылка

Знаете ответ?

valsha · Accepted Answer

88

valsha

17 февраля 2023

var I,s: integer; beginwriteln ('Summa … .'); for i: =100 to 999 doif i mod 17=0 then s: =s+i else s: =s+0; writeln (s) end.

комментировать

в избранное ссылка отблагодарить