Предмет: Информатика,
автор: moskva
найти сумму от 100 до 200,кратных 17
Ответы
Автор ответа:
0
var i,s:integer;
Begin
for i:= 100 to 200 do
if i mod 17=0 then s:=s+i;
writeln(s);
End.
Интересные вопросы
Предмет: История,
автор: polyglotta77
Предмет: Другие предметы,
автор: annat6640
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Математика,
автор: iru
Предмет: Экономика,
автор: ksyusha888