Учитель по информатике задал сделать конфигурацию сбалансированного компьютера. И дал 750$. Ничего не поняла
180
362
Ответы на вопрос:
//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) var a: array of integer; i, n, m: integer; function simple(x: integer): boolean; var i: integer; begin simple : = false; if x < 2 then exit; if x mod 2 = 0 then exit; i : = 3; while i < = sqrt(x) do begin if x mod i = 0 then exit; i +=2; end; simple : = true; end; begin write('количество элементов массива : '); readln(m); setlength(a, m); while n < = m - 1 do begin if simple(i) then begin a[n] : = i; n +=1; end; i +=1; end; a.println; end. тестовое решение: количество элементов массива : 25 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
Популярно: Информатика
-
ЮкиТеру24.11.2020 06:43
-
vika36voronezhskaya05.03.2021 19:00
-
толян5023.01.2021 21:23
-
rom4ik22723224511.12.2020 09:09
-
123qwerty006.12.2021 20:42
-
Шишкин55501.07.2022 13:11
-
mr7ka04.09.2020 06:57
-
dashakalita17.08.2021 08:06
-
1qq26.07.2020 04:16
-
azimovroma2018oyopk226.01.2021 21:01