Question

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

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.