протабулировать функцию y=xcos2x на интервале [-1;1] с шагом h=0,2 и определите :среднее арифмитическое положительных значений
256
466
Ответы на вопрос:
Procedure chisla(n : integer); var a : integer; begin if (n < 1) then writeln else begin read(a); if (abs(a) < 1000) then begin chisla(n-1); write(a,' '); end else chisla(n); end; end; function readn() : integer; var n : integer; begin write('n='); readln(n); if not(n in [0..1000]) then n : = readn(); readn : = n; end; var n : integer; begin n : = readn(); writeln('введите ', n, ' целых чисел через пробел и нажмите enter'); chisla(n); end.
Популярно: Информатика
-
sennik4110.06.2022 09:00
-
LuiZa8725.06.2022 13:42
-
akopovalizaveta12.04.2020 04:53
-
anjellalove09424.07.2020 13:22
-
Priveee09.11.2021 11:16
-
nadijagordijenp07vwr05.03.2020 15:30
-
varvarataraskina23.03.2021 06:13
-
galaktionov96422.09.2022 01:10
-
пппп10319.12.2020 16:26
-
polinafaber10.09.2020 14:18