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