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