Вывести на экран все числа, кратные 13 и не превосходящие 300
Вывести на экран все числа, кратные 13 и не превосходящие 300
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы