напишите программу определения делитей числа в Паскале
Answers & Comments
Nofullname
Uses crt; var n,i:integer; begin Clescr; readln(n); Writeln('Делители числа ',n); for i:=1 to n do if n mod i = 0 then write(i,' '); Readkey; end.
0 votes Thanks 0
Nofullname
извиняюсь поспешил . измените строку Clescr; НА clrscr;
Answers & Comments
var n,i:integer;
begin
Clescr;
readln(n);
Writeln('Делители числа ',n);
for i:=1 to n do
if n mod i = 0 then write(i,' ');
Readkey;
end.