1) напишите программу, которая спрашивает целые числа а и b и выводит на экран количество чётных и нечётных чисел в диапазоне от а до b 2)напишите программу, которая спрашивает целое число n , целые числа а и b,и выводит на экран n случайных чисел от а до b
148
381
Ответы на вопрос:
// pascalabc.net 3.3, сборка 1561 от 02.11.2017 // внимание! если программа не работает, обновите версию! 1) begin var (a,b): =readinteger2('введите границы диапазона: '); var всего: =b-a+1; // количество целых чисел в диапазоне var четных,нечетных: integer; if a.isodd then begin четных: =всего div 2; нечетных: =всего-четных end else begin нечетных: =всего div 2; четных: =всего-нечетных end; // четное a writeln('нечетных- ',нечетных,', четных- ',четных) end. пример введите границы диапазона: -4 4 нечетных- 4, четных- 5 2) begin var (n,a,b): =readinteger3('введите n,a,b: '); seqrandom(n,a,b).println end. пример введите n,a,b: 15 -10 35 19 33 -10 4 5 -10 10 21 17 21 14 21 24 23 18
Популярно: Информатика
-
alica12343407.05.2023 11:01
-
Angelina1232306.07.2020 08:06
-
zoggvik13ouid1r17.03.2021 12:43
-
ДуанбекМариям25.10.2021 22:44
-
irinkaokhotina23.01.2021 10:40
-
trahtrah117.11.2020 02:57
-
байгинат125.09.2020 17:30
-
paniann1717.07.2021 00:05
-
zaharsteam22.01.2020 05:34
-
i01n11.07.2020 11:45