Склавиатуры вводится строка из двух слов, разделённых пробелом. составьте программу которая: преобразует первые буквы слов к верхнему регистру, меняет слова места и вставляет после каждого слова вопросительный знак.
!

наливаем в 5 литров в "5". переливаем его в "9". наливаем еще полное "5" и снова переливаем его в "9". в "5" остается 4л. переливаем сюда литр из "9" (итог: "9"=8, "5"=5) из "5" выливаем  все. переливаем сюда из "9".

итог: в "9" ровно 3 л.

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('ясь',s,7);

writeln (s);

readln;

end.

3

а)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete (s,6,5); {удаляем включая пробел}

writeln (s);

readln;

end.

б)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete(s,13,6);

s: =s+'озера';

writeln (s);

readln;

end.

1) 35-25=10 (чел.) - не являются читателями школьной библиотеки

2) 35-20=15 (чел.) - не являются читателями районной библиотеки

3) (25+20)-35=10 (чел.) - читатели обеих библиотек

4) 20-10=10 (чел.) - читатели только районной библиотеки

5) 25-10=15 (чел.) - читатели только школьной библиотеки

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.