Составьте программу вывода на экран всех делителей натурального числа N

@ЮЮллиияя · Регистрация: 11.04.2013

Author24 — интернет-сервис помощи студентам

Составьте программу вывода на экран всех делителей натурального числа N.(с помощью repeat , while)

@Erea · 08.05.2013, 19:10

Pascal

Program MyProg;
uses crt;
var n, i: integer;
begin
clrscr;
readln(n);
i:=n;
clrscr;
Writeln('Deliteli chisla ',n,':');
repeat
if (n mod i) = 0 then
writeln(i);
i:=i-1;
until (i<1);
readln;
end.

или

Pascal

Program MyProg;
uses crt;
var n, i: integer;
begin
clrscr;
readln(n);
i:=n;
clrscr;
Writeln('Deliteli chisla ',n,':');
while i>0 do begin
if (n mod i) = 0 then
writeln(i);
i:=i-1;
end;
readln;
end.

@ЮЮллиияя 9 / 9 / 0 Регистрация: 11.04.2013 Сообщений: 48
		1
	Составьте программу вывода на экран всех делителей натурального числа N 08.05.2013, 19:01. Показов 6037. Ответов 1 Метки нет (Все метки) Составьте программу вывода на экран всех делителей натурального числа N.(с помощью repeat , while) 0

	08.05.2013, 19:10

Составьте программу вывода на экран всех делителей натурального числа N

Решение