Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
-посмотри это? если это то не благодарите муа цуйдим
var i,s: integer;
begin
for i: = 100 to 200 do
if i mod 17=0 then s: =s+i;
writeln(s);
end.
10*10*1=100 b=12,5 b
Популярные вопросы