Question

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

Answer 1

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.