Question

Вводятся произвольные натуральные числа в количестве n . Вывести ('Да') если все числа являются четырехзначным и при этом начинаются с нечетных чисел

Answer 1

На питоне решение вот

Answer 2

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.