Заглавная буква

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

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

На вход дается строка. Определить, есть ли в строке хоть одна заглавная латинская буква.
Если заглавная буква есть, выведите YES. В противном случае выведите NO.
Пример
aBc YES
abc NO

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

Pascal

uses crt;
var s: string;
    i: byte;
    k: boolean;
begin clrscr;
writeln('Ââåäèòå ñòðîêó: ');
readln(s);
k:=false;
for i:=1 to length(s) do
  if ord(s[i]) in [65..90] then k:=true;
if k then writeln('Yes')
else writeln('No');
readkey
end.

@qwertyo 25 / 25 / 28 Регистрация: 20.03.2011 Сообщений: 150
		1
	Заглавная буква 06.05.2011, 19:13. Показов 2476. Ответов 1 Метки нет (Все метки) На вход дается строка. Определить, есть ли в строке хоть одна заглавная латинская буква. Если заглавная буква есть, выведите YES. В противном случае выведите NO. Пример aBc YES abc NO 0

Опции темы

Заглавная буква

Решение