PASCAL ABC Символьный тип данных. Вывести ** экран все латинские буквы, коды которых...

Question

PASCAL ABC Символьный тип данных.
Вывести на экран все латинские буквы, коды которых чётные и кратны 5

Comments

По аналогии с предыдущим сделать трудно?=))

---

У меня даже по аналогии не получается. Мне паскаль все портит. Не въезжаю и всё.

---

Чётны - кратны двум+кратны 5значит они должны быть кратны произведению этих чиселmod 10

---

спасибо большое.

---

Не за что=)) Обращайся=)

---

Буду знать)

Answer 1

Var C:char;
Begin
For C:='a' to 'z' do
 if Ord(C) mod 10 = 0 then WriteLn(C);
For C:='A' to 'Z' do
 if Ord(C) mod 10 = 0 then WriteLn(C)
End.