Вводится число N. Выведите те числа от 1 до N, которые делятся на 13. ПРИМЕРЫ: 25- ВВОД 13- ВЫВОД 39-ВВОД 13 26 39-ВЫВОД Pascal abc
Вводится число N. Выведите те числа от 1 до N, которые делятся на 13.
ПРИМЕРЫ:
25- ВВОД
13- ВЫВОД
39-ВВОД
13 26 39-ВЫВОД
Pascal abc
Гость
Ответ(ы) на вопрос:
Гостьvar
n,i:integer;
begin
readln(n);
i:=1;
while i<=n do begin
if i mod 13 =0 then write(i,' ');
i:=i+1;
end;
end.
Не нашли ответ?
Похожие вопросы