Пожалйста помогите решить!!Составить...

Тема в разделе "Информатика", создана пользователем Jacviah, 6 янв 2010.

  1. Jacviah

    Jacviah New Member

    Пожалйста помогите решить!!Составить программу определяющую, является ли число xпростым.
     
    Jacviah, 6 янв 2010
    #1
  2. [Vitalik]

    [Vitalik] New Member

    var x,i:integer;
    a:boolean;
    begin
    readln(x);
    for i:=2 to x-1 do if (x div i=x/i) then begin a:=true; break; end;
    if a=true then writeln('Ne prostoe') else writeln('Prostoe');
    end.
     
    [Vitalik], 6 янв 2010
    #2

Поделиться этой страницей

Наша группа