Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:лабораторная работа / 1-6 Простое число / PROS
.TXT program ProstAlt;
var
n,i: integer;
prostoe: boolean;
begin
Read(n);
prostoe:=true;
for i:=2 to n-1 do
if n mod i = 0 then
begin
prostoe:=false;
Write(i,' ');
end;
if prostoe then Write('Choslo prostoe!')
else Write(' - deliteli chisla. Chislo ne prostoe!');
ReadLn(i);
end.
var
n,i: integer;
prostoe: boolean;
begin
Read(n);
prostoe:=true;
for i:=2 to n-1 do
if n mod i = 0 then
begin
prostoe:=false;
Write(i,' ');
end;
if prostoe then Write('Choslo prostoe!')
else Write(' - deliteli chisla. Chislo ne prostoe!');
ReadLn(i);
end.
Соседние файлы в папке 1-6 Простое число