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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!