Предмет: Информатика,
автор: yulia160899
Помогите написать программу на Паскале :
Приложения:
Ответы
Автор ответа:
0
var
i,n:longint;
begin
readln(n);
i:=1;
while i < n do
begin
if n mod i=0 then
writeln(i);
i:=i+1;
end;
end.
begin
readln(n);
i:=1;
while i < n do
begin
if n mod i=0 then
writeln(i);
i:=i+1;
end;
end.
Автор ответа:
0
Не правильно
Автор ответа:
0
я решил не так удали мой ответ
Автор ответа:
0
это не даёт простых делителей
Интересные вопросы
Предмет: Физика,
автор: ramayazaurgmailcom
Предмет: Математика,
автор: Zavialovae0542
Предмет: Другие предметы,
автор: Аноним
Предмет: Математика,
автор: anya1847
Предмет: Биология,
автор: akcanaefimoba77