Вывести на экран все числа, кратные 13 и не превосходящие 300

Question

Информатика

Иоанна

10 апреля, 18:03

Вывести на экран все числа, кратные 13 и не превосходящие 300

+2

Ответы (1)

Знаете ответ?

Женя · Answer 1

Var

i:integer;

begin

i:=13;

while i<=300 do

begin Write (i:4) ; i:=i+13 end;

Writeln

end.

Результат выполнения программы:

13 26 39 52 65 78 91 104 117 130 143 156 169 182 195 208 221 234 247 260 273 286 299