Question

Блок-Схема.
Найти сумму чисел от 100 до 200 кратных 17.
Nayti summu chisel ot 100 do
. Помогите пожалуйста

Answer 1

Ответ:

var i,s:integer;

Begin

 for i:= 100 to 200 do

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

writeln(s);

End.

Объяснение: