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

kottonkandy kottonkandy    2   04.07.2019 08:20    1

Ответы
likaKiss1 likaKiss1  02.10.2020 19:47
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика