Написать програму которая проверяет является ли целое число введенное пользователем- простым. это турбо паскаль, цикл for

Hdjshddh Hdjshddh    2   20.05.2019 20:30    2

Ответы
Aidana1620 Aidana1620  14.06.2020 09:29

program qq;
var a,b:integer; 
begin

readln (b);

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

end;

write(а);

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

ПОКАЗАТЬ ОТВЕТЫ
daaaasha2018 daaaasha2018  14.06.2020 09:29

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика