Следующие буквы

@qwertyo · Регистрация: 20.03.2011

Студворк — интернет-сервис помощи студентам

На вход дается заглавная буква латинского алфавита. Выведите на экран без пробелов все заглавные буквы алфавита, стоящие после нее.
Пример
X YZ

@Высокий · 06.05.2011, 19:55

Pascal

uses crt;
var c: char;
    i: byte;
begin clrscr;
writeln('Íàæìèòå êëàâèøó: ');
c:=readkey;
if ord(c) in [65..90] then
for i:=ord(c) to 90 do
write(chr(i):2)
else writeln('Íå çàãëàâíàÿ ëàòèíñêàÿ áóêâà.');
readkey
end.

@qwertyo 25 / 25 / 28 Регистрация: 20.03.2011 Сообщений: 150
		1
	Следующие буквы 06.05.2011, 19:33. Показов 1053. Ответов 1 Метки нет (Все метки) На вход дается заглавная буква латинского алфавита. Выведите на экран без пробелов все заглавные буквы алфавита, стоящие после нее. Пример X YZ 0

Опции темы

Следующие буквы

Решение