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

gjvftyGHbgg gjvftyGHbgg    1   02.03.2019 06:10    3

Ответы
Lanatm12 Lanatm12  23.05.2020 20:45

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика