Попириписывалась пол опроса им про ос ряд Ир щмр
Т=а, а=б б=т
думаю так тоде
Var s:string; i:integer;
begin
readln(s);
s[1]:=Upcase(s[1]);
for i:=2 to length(s) do s[i]:=lowcase(s[i]);
for i:=1 to length(s)-2 do
if (s[i] in ['.','?','!'])and(s[i+1]=' ')
then s[i+2]:=Upcase(s[i+2]);
writeln(s);
end.
Пример:
слОва отдЕЛены друг от друга ОДНИМ пробелом. испрАвить стрОкУ? вывести полУЧЕнную стрОКу на экран!
Слова отделены друг от друга одним пробелом. Исправить строку? Вывести полученную строку на экран!
<span>1. Что будет выведено в результате выполнения:
<u />А: = 'Э<u>ЛЕК</u>ТРОСТАН<u>ЦИЯ</u>';
WRITELN (COPY (А, 2, 3) + COPY (A, 12, 3) ); ?
ЛЕКЦИЯ
2. Определите результат выполнения:
С: = ' ЛЕФОРТОВО' ;
F: = LENGTH (С) + LENGTH (С); ?
Две длины слова, т.е. 9+9=18
3. Из слова ИН<u>ФОРМАТ</u>ИКА получено слово ФОРМАТ. Вставьте пропущенные значения
COPY('ИНФОРМАТИКА',3,6).
Надо взять, начиная с третьего символа, шесть символов.
4. Что будет выведено в результате выполнения:
WRITELN ('24 + 24 =', 24 + 24)?
</span><span><span>24 + 24 =48
</span>
5. Что будет выведено в результате выполнения:
А: = '<u>ЭЛЕКТРО</u>СТАНЦИЯ';
WRITELN(COPY(A,1,7)); ?
</span>
ЭЛЕКТРО
Ответ:для x=1 ответ верный
Объяснение: