Вводится число n. выведите те числа от 1 до n, которые делятся на 13. примеры: 25- ввод 13- вывод 39-ввод 13 26 39-вывод pascal abc

ayzilyamannano ayzilyamannano    3   16.08.2019 14:50    0

Ответы
kViktoria2077 kViktoria2077  04.10.2020 23:01
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика