Регистрация
gsgshhshsbababa
13.07.2021 02:52
Информатика
Есть ответ 👍

в течении часа ответ нужен

292
418
Посмотреть ответы 1

Ответы на вопрос:

RolW
RolW
4,8(86 оценок)

program simplenumber;  

uses crt;  

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

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

Популярно: Информатика