Напишите программу, которая запрашивает три цифры (от 1 до 9) и выводит число, получающееся из этих цифр в том же порядке, что и при вводе. Цифры подаются в одной строке через пробел. Sample Input:
1 2 3
Sample Output:
123
267
449
Ответы на вопрос:
// 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
Популярно: Информатика
-
masaynay22mailru25.09.2020 05:12
-
умненькийкотенок03.02.2023 17:43
-
Shakhmilova00119.07.2021 21:27
-
MrHelpOnline05.12.2020 06:58
-
MAXIMUS11111111106.03.2020 14:19
-
надечка200502.10.2021 23:42
-
osmo200809.10.2021 18:30
-
Madinamkm20.06.2022 03:27
-
Полина2004290904.02.2022 20:45
-
Aiganym68409.04.2023 07:42