Регистрация
KatyaDro
Есть ответ 👍

Дана строка-предложение на английском языке. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы (программа Паскаль)

220
434
Посмотреть ответы 2

Ответы на вопрос:

EzNoobXex
EzNoobXex
4,7(64 оценок)
program zzz;
uses crt;
const rb=['а'..'п','р'..'я','ё'];
function Up(c:char):char;
begin
if c in ['а'..'п'] then Up:=chr(ord(c)-32)
else if c in ['р'..'я'] then Up:=chr(ord(c)-80)
else if c='ё' then Up:='Ё';
end;
var s:string;
    i:byte;
begin
clrscr;
writeln('Bilo');
Readln (s);
for i:=1 to length(s) do
if (s[i] in rb)and((i=1)or(s[i-1]=' ')) then s[i]:=Up(s[i]);
writeln('Stalo ');
write(s);
readln
end.
annamajoriva953
annamajoriva953
4,5(92 оценок)

Обычно всегда можно использовать поиск для ответов,но ладно вот тебе ответ:

На какой то красный предмет падает белый свет. От него отражается только красный цвет. А остальные цвета поглощаются.Так же само и с другими

Популярно: Другие предметы