Ввести с клавиатуры символ-маленькую букву. напечатать соответствующую ей большую. (комментарий: маленькие и большие буквы имеют коды, отличающиеся на 32: ord ('f')=ord ('f')+32.)
В комментарии ошибка. Правильно будет Ord ('F')=Ord ('f')-32 или Ord ('f')=Ord ('F')+32 Программа: var c:char; begin write('Введите маленькую английскую букву '); readln(c); writeln(chr(ord(c)-32)); end.
Ord ('F')=Ord ('f')-32 или Ord ('f')=Ord ('F')+32
Программа:
var c:char;
begin
write('Введите маленькую английскую букву ');
readln(c);
writeln(chr(ord(c)-32));
end.