написать програму которая проверяет является ли целое число введенное пользователем- простым. ЭТО ТУРБО ПАСКАЛЬ, ЦИКЛ FOR<ПЛИЗ ОЧЕНЬ НААДО*))))

1

Ответы и объяснения

2013-05-06T17:55:43+00:00

var
  a, i: integer;
  b: boolean;

 

begin
  b:= false;
  writeln('Введите целое число');
  readln(a);
  for i:= 2 to a - 1 do
    if a mod i = 0 then
    begin
      b:= false;
      break;
    end
    else b:= true;
  if b = true then writeln('Число простое')
  else writeln('Число не простое');
end.