var i,n:longint
Begin
clrscr;
readln(n);
for i:=1 to n div 2 + 1 do
if n mod i = 0 then write(i,' ');
readln;
End.
Pascal. Найти все делители числа n.
Уважаемые программисты.
Изначально я прописала код, который просто рассчитывает делители, потом преподаватель попросил сделать так, чтобы писались по 2 делителя - самый левый и самый правый. Но после этого,а именно после того, когда я сделала программу, преподаватель добавил строчку writeln ('try',i) после которой помимо делителей пишутся остальные числа, которые программа перебирает. Удаление этой строчки не позволительна и преподаватель сказал, что мне надо изменить условие цикла, чтобы этот перебор не писался. Вся работа в Pascal.
Вот программа:
Изначально я прописала код, который просто рассчитывает делители, потом преподаватель попросил сделать так, чтобы писались по 2 делителя - самый левый и самый правый. Но после этого,а именно после того, когда я сделала программу, преподаватель добавил строчку writeln ('try',i) после которой помимо делителей пишутся остальные числа, которые программа перебирает. Удаление этой строчки не позволительна и преподаватель сказал, что мне надо изменить условие цикла, чтобы этот перебор не писался. Вся работа в Pascal.
Вот программа:
Код:
var number,i,t:longInt;
begin
writeln('vvedite chislo);
readln(number);
writeln;
writeln('delitel chisla');
i:=1;
t:=number;
while i<t do
begin
if (number mod i=0) then
begin
writeln(i);
t:=number div i;
writeln (t);
end;
i:=i+1
writeln ('try,i); <------ ВОТ ЧТО ОН ДОПИСАЛ !
end;
readln;
end.
begin
writeln('vvedite chislo);
readln(number);
writeln;
writeln('delitel chisla');
i:=1;
t:=number;
while i<t do
begin
if (number mod i=0) then
begin
writeln(i);
t:=number div i;
writeln (t);
end;
i:=i+1
writeln ('try,i); <------ ВОТ ЧТО ОН ДОПИСАЛ !
end;
readln;
end.