Предмет: Информатика,
автор: sverxrazum111
ПАСКАЛЬ
С клавиатуры вводится строка, состоящая из слов на русском языке, отделённых друг от друга одним пробелом. Все буквы прописные. Вывести эту строку на экран, заменив в каждом слове первую букву на заглавную.
Ответы
Автор ответа:
0
Program z6; Var a: array [1..10] of string; i,j,l:integer; s,g,s_2:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin g:=a[i]; g[1]:= (Upcase(g[1])); s_2:= s_2 + g + ' '; i:= i + 1; g:=''; end; writeln(s_2);End.
Приложения:
Похожие вопросы
Предмет: Русский язык,
автор: sfsf123
Предмет: Қазақ тiлi,
автор: chiiiilloooovvveeeek
Предмет: Математика,
автор: Fnafer228toptiktok
Предмет: Математика,
автор: Dallari551
Предмет: Математика,
автор: катюл