Предмет: Информатика, автор: olgamikhaluk

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

Ответы

Автор ответа: Аноним
0
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.

Похожие вопросы