Составье програму вычесления суммы всех трехзначных чисел ,кратных 17???
Составье програму вычесления суммы всех трехзначных чисел ,кратных 17???
Гость
Ответ(ы) на вопрос:
Гостьvar I,s:integer; begin writeln('Summa ....'); for i:=100 to 999 do if i mod 17 =0 then s:=s+i else s:=s+0; writeln(s) end.
Не нашли ответ?
Похожие вопросы