Предмет: Информатика,
автор: 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.
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.
Похожие вопросы
Предмет: Русский язык,
автор: mikababicheva2011
Предмет: Химия,
автор: olgatulupcenko
Предмет: Геометрия,
автор: makarslavuta
Предмет: География,
автор: rinochka1999
Предмет: Литература,
автор: Kusiya987