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