Предмет: Информатика,
автор: Nastya963
Дано число n. Найти все его делители.
Ответы
Автор ответа:
0
uses crt;
var a,i:integer;
begin
readln(a);
for i:=1 to (a div 2) do
if (a mod i=0) then writeln(i);
writeln(a);
end.
var a,i:integer;
begin
readln(a);
for i:=1 to (a div 2) do
if (a mod i=0) then writeln(i);
writeln(a);
end.
Интересные вопросы
Предмет: Русский язык,
автор: mamama45
Предмет: Русский язык,
автор: Аноним
Предмет: География,
автор: koshelenkorostik
Предмет: Геометрия,
автор: anchuda
Предмет: Алгебра,
автор: ArinaChikunova