Информатика!! Помогите пжл

+ 0 -

павеол

17 февр. 2014 г., 23:15:46 (10 лет назад)

var a, i:integer;   flag:boolean;
begin
     flag := true;
     writeln('Введите число и нажмите <Enter>');
     write('X= ');
     readln(a);
     if a = 1
     then
         writeln(a, ' - не простое число')
     else
          for i:=2 to (a div 2) do
              if a mod i = 0
              then
                  flag := false;
     if flag = true
     then
         writeln(a, ' - простое число')
     else
         writeln(a, ' - не простое число');
end.

+ 0 -

Alenachernickina

18 февр. 2014 г., 0:32:11 (10 лет назад)

Pascal?

+ 0 -

AngelZays

18 февр. 2014 г., 2:06:54 (10 лет назад)

да