Впаскале вводится сначала число n, а затем n чисел. выведите эти n чисел в следующем порядке: сначала выводятся все нечетные числа в том порядке, в каком они встречались во входном файле, а затем - все четные.
293
394
Ответы на вопрос:
Var a: array of integer; n,i: integer; begin readln(n); setlength(a,n); for i: =0 to n-1 do readln(a[i]); for i: =0 to n-1 do if a[i] mod 2=1 then write(a[i],' '); writeln(); for i: =0 to n-1 do if a[i] mod 2=0 then write(a[i],' '); end.
//pascal abc.net v3.1 сборка 1172 var x: real; begin readln(x); if (x> =1)and (x< =20) then writeln('есть') else writeln('нет'); end. пример ввода: 19.5 пример вывода: есть
Популярно: Информатика
-
Nyoken03.04.2022 06:06
-
murat20020226.06.2021 19:24
-
лизя5ррр03.04.2020 21:37
-
милка32713.03.2023 16:28
-
dja4enkodanil1616.08.2022 02:14
-
Асия2222203.04.2020 13:04
-
Xooocc16.06.2023 00:24
-
ринат12715.12.2021 14:46
-
Умник33333101.12.2021 02:20
-
Антон871228.03.2022 21:49