Предмет: Информатика, автор: Nastya963

Дано число n. Найти все его делители. 

Ответы

Автор ответа: yasadc
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.

Интересные вопросы
Предмет: Русский язык, автор: Аноним