Question

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

Answer 1

Program SimpleNumber; 

Uses Crt; 

var i,f,n:integer;
begin
    write('Введите число:');
     readln(n);
     for i:=2 to trunc(sqrt(n)) do
if (n mod i)=0 then f:=1;
if (f=0) then write('Число Простое')

           else writeln('Число не является простым');
   readkey;
end.

Answer 2

program qq;
var a,b:integer; 
begin

readln (b);

for a:=b div 10 then write("простое");
end;
иначе write ("не простое");

end;

write(а);

end.
я не уверен, что программа будет работать правильно(