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.
Пример:
слОва отдЕЛены друг от друга ОДНИМ пробелом. испрАвить стрОкУ? вывести полУЧЕнную стрОКу на экран!
Слова отделены друг от друга одним пробелом. Исправить строку? Вывести полученную строку на экран!
В случае, если можно совместить два класса вместе (например, на втором уроке провести занятие для 10а и 10б одновременно), то минимально нужны 2 учителя информатики (одновременно проводятся только 2 урока).
Если классы совместить нельзя, то три учителя (смотрим на максимальное количество закрашенных клеток в строках)
Var n,m,p,s:integer;
begin
write('n=');
readln(n);
m:=n;k:=0;
write('цифры, которые >=4 и <=8 : ');
while m<>0 do begin
p:=m mod 10;
m:=m div 10;
if (p>=4) and (p<=8) then begin
write(p,' ');
s:=s+p;
end;
end;
writeln;
writeln('сумма этих цифр = ',s);
end.
Нарисуй, мног разных видов спорта, как будто они рядом , и на вверху олимпийские кольца