Получено сообщения информационный объем которого равен 512 битам чему равен этот объем в байтах
120
422
Ответы на вопрос:
Function simpl(n: integer): boolean; var i,k: integer; begin i: =2; k: =round(sqrt(n)); while ((n mod i)< > 0) and (i< =k) do i: =i+1; simpl: =(i> k) end; // основная программа var n: integer; begin write('простое число: '); readln(n); repeat n: =n+1; until simpl(n); writeln('следующее простое: ',n); end. простое число: 119 следующее простое: 127
Популярно: Информатика
-
botagos21057903.01.2020 16:47
-
ladiaginairina09.09.2020 11:04
-
jhgtreedhhuuu07.05.2020 06:24
-
ВелмаУмница17.02.2020 17:18
-
satana202028.03.2022 22:16
-
Варвараминнннн09.02.2021 05:24
-
kdominsk7109.02.2021 10:02
-
Shepinvan91209.08.2022 20:19
-
АвторУлыбки26.02.2020 15:56
-
Sofya768Miller19.05.2023 18:39