Найти сумму чисел от 100 до 200 кратных 17. Нужно типа таблицв, начало ввод операция и...

Question

Найти сумму чисел от 100 до 200 кратных 17. Нужно типа таблицв, начало ввод операция и т.д.

Answer 1

Var k,sum:integer;begink :=100;while(k < 201) dobeginif (k mod 17) = 0 then beginwriteln(k);sum:= sum +k;end;k:= k + 1;end;writeln('sum =', sum);end.{102119136153170187sum =867}