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

Question

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

Comments

Нечетных цифр*

---

Помогите

---

Я бы конечно мог помочь, но я не пишу на паскале, только на питоне

---

А на питоне можно ??

---

Паскаль?

---

Смотри какой классный лаконичный язык, на паскале будет раза в 2 длиннее

---

Вообщем, пишу паскаль

Answer 1

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<br>g:=('Да');
end;
writeln(g);
end.

Comments

Спасибо

---

Слушай Max , а блок схему можешь составить ??

---

Да, но что-то не очень хочется =)

Answer 2

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

---

Comments

Нет, я только Pascal и C++ шарю

---

Сорян! Я думал, это создатель темы написал =D