Вводятся произвольные натуральные числа в количестве n . вывести ('да') если все числа являются четырехзначным и при этом начинаются с нечетных чисел
187
414
Ответы на вопрос:
Var a, b, c : integer; g : string; begin g: =('нет'); readln(b); for a: =1 to b do begin readln(c); if (c> 999) and (c mod 2< > 0) and (c< 10000) then g: =('да'); end; writeln(g); end.
Var n: integer; procedure writensymbols(n: integer; c: char); var i: integer; begin for i : = 1 to n do write(c); end; begin readln(n); writensymbols(n, '-'); end.
Популярно: Информатика
-
НазарРезник21.08.2021 14:59
-
kektuber222owf6bv31.01.2023 12:36
-
Romlik20.06.2021 19:48
-
Dmitry7018.09.2020 08:59
-
привет92927.01.2022 16:26
-
tural2304.10.2021 14:36
-
Андріана132302.12.2022 00:29
-
wjruwhtu04.06.2020 17:03
-
Dmitry228q23.09.2020 04:42
-
HepBbI09.02.2021 03:35