Б
оооооооооооооооооооооооооооооооооооооооооооооооооооо
так как там идут упорядоченные действие
тоесть за этим идет это за тем другое и тд
Var
s,s1:string;
i:integer;
begin
writeln ('Введите строку.');
readln (s);
s1:='';
for i:= 1 to length(s)-1 do
begin
if s[i] <> ' ' then s1:=s1+s[i];
if (s[i] = ' ')and(s[i+1] <> ' ') then s1:=s1+s[i];
end;
s:='';
if s1[1] = ' ' then
for i:= 2 to length(s1) do
s:=s+s1[i]
else
for i:= 1 to length(s1) do
s:=s+s1[i];
writeln(s);
end.
За 5 мин Катя наберёт 100 символов. Дальше они набирают одновременно, и Маша догоняет Катю на 20 символов
каждую мин.Разрыв в 100 символов она нагонит за 5 минут.
Ответ: через 10 минут после того, как начала печатать Катя, они напечатают одинаковое количество символов(200)
Решение во вложении.
<em><u>Ответ:</u></em>
Александр - Иркутск
Николай - Рязань
Денис - Уфа
Михаил - Саратов
Геннадий - Тюмень
Семен - Воркута