Seletnezh
7 год назад
Вводится число N. Выведите те числа от 1 до N, которые делятся на 13.
ПРИМЕРЫ:
25- ВВОД
13- ВЫВОД
39-ВВОД
13 26 39-ВЫВОД
Pascal abc
ОТВЕТЫ
Нетудыхата
Jul 11, 2019
Var
n,i:integer;
begin
readln(n);
i:=1;
while ilt;=n do begin
if i mod 13 =0 then write(i, );
i:=i+1;
end;
end.
n,i:integer;
begin
readln(n);
i:=1;
while ilt;=n do begin
if i mod 13 =0 then write(i, );
i:=i+1;
end;
end.
3
