Использование цикла с постусловием. Дано натуральное число. Выяснить, является ли оно простым

@Slove73 · Регистрация: 28.04.2012

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

Дано натуральное число. Выяснить, является ли оно простым (простым называется натуральное число, большее 1, не имеющее других делите¬лей, кроме единицы и самого себя).

@Lilu666 · 19.06.2012, 10:19

Pascal

uses crt;
var i,n: integer;
    t: boolean;
begin
clrscr;
      write('vvedite chislo: '); readln(n);
      t:=false;
      i:=2;
      repeat
            if n mod i=0 then t:=true;
            if i=n then t:=false;
            i:=i+1;
      until i>round(sqrt(n));
      if t=true then writeln ('ne prostoe')
         else writeln('prostoe');
readkey;
end.

@Slove73 0 / 0 / 0 Регистрация: 28.04.2012 Сообщений: 23
		1
	Использование цикла с постусловием. Дано натуральное число. Выяснить, является ли оно простым 18.06.2012, 23:08. Показов 1483. Ответов 1 Метки нет (Все метки) Дано натуральное число. Выяснить, является ли оно простым (простым называется натуральное число, большее 1, не имеющее других делите¬лей, кроме единицы и самого себя). 0

	19.06.2012, 10:19

Опции темы

Использование цикла с постусловием. Дано натуральное число. Выяснить, является ли оно простым

Решение