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

Question

Информатика

Ядвига

14 ноября, 04:11

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

+1

Ответы (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