Найти сумму от 100 до 200,кратных 17

viktoria050504 viktoria050504    1   26.02.2019 20:20    3

Ответы
Anyta15111 Anyta15111  23.05.2020 15:02

var i,s:integer;

Begin

  for i:= 100 to 200 do

    if i mod 17=0 then s:=s+i;

 writeln(s);

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика