Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
(неясно-пиши в личку)
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.
Популярные вопросы