написать програму которая проверяет является ли целое число введенное пользователем- простым. ЭТО ТУРБО ПАСКАЛЬ, ЦИКЛ FOR<ПЛИЗ ОЧЕНЬ НААДО*))))
program qq;
var a,b:integer;
begin
readln (b);
for a:=b div 10 then write("простое");
end;
иначе write ("не простое");
end;
write(а);
end.
я не уверен, что программа будет работать правильно(
Оцени ответ
