Определить введенное число простое или составное

19.12.2008, 15:54. **Показов** 9502. **Ответов** 1

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

Определить введенное число простое или составное. Очень нужна... Можно на мыло jiehuh-das@ya.ru

@Evklid · 19.12.2008, 20:24

Держи код проги:

Код

program cyb_40;
uses
 Crt;
var
 i, n: longint;
begin
 ClrScr;
 write('Vvedite chislo: ');
 readln(n);
 for i:= 2 to (n div 2) do
  if (n mod i) = 0 then
   begin
    writeln('Chislo ', n, ' sostavnoe');
    readln;
    exit;
   end;
 writeln('Chislo ', n, ' prostoe');
 readln;
end.

_JIEHuH_
		1
	Определить введенное число простое или составное 19.12.2008, 15:54. Показов 9502. Ответов 1 Метки нет (Все метки) Определить введенное число простое или составное. Очень нужна... Можно на мыло jiehuh-das@ya.ru

	19.12.2008, 20:24

Опции темы