Составить программу для нахождения суммы чисел кратных трем в интервале от 1 до b нужна ваша
222
278
Ответы на вопрос:
// freepascal var n, k, s: integer; a: array of integer; function isprime(n: integer): boolean; var i: integer; begin if n < = 1 then exit(false) else if n < = 3 then exit(true) else if (n mod 2 = 0) or (n mod 3 = 0) then exit(false); i : = 5; while (i * i) < = n do begin if (n mod i = 0) or (n mod (i + 2) = 0) then exit(false); i : = i + 6; end; exit(true); end; begin s : = 0; write('n = '); readln(n); setlength(a, n); for k : = 0 to (n - 1) do begin write('a[', k, '] = '); readln(a[k]); if isprime(k) then s : = s + a[k]; end; writeln('ответ: ', s); end.
Популярно: Информатика
-
cvetaharlanova508.08.2021 16:12
-
lizaivanovamail03.01.2022 16:54
-
akbotawka0214.04.2020 20:06
-
nyrlan1353128.12.2020 06:52
-
888oksana88812.06.2023 08:37
-
SmartFox107.02.2020 02:03
-
dfhhu04.05.2023 01:02
-
ЕлизаветаШкола23.09.2022 23:25
-
DarckGh0st22.11.2021 06:32
-
inessaqwerty14.01.2023 17:04