// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var s:=ReadlnString('>');
s:=s.Replace(' ',''); Writeln(s);
end.
<u><em>Тестовое решение:</em></u>
> А роза упала на лапу Азора
АрозаупаланалапуАзора
Ответ:
Если вопрос дальше такой:
который закрашивает клетки:
а) ниже каждой закрашенной клетки.
б) выше и ниже каждой закрашенной клетки. То ответ:
А) вниз пока (справа свободно) закрасить вправо конец б) вверх пока (справа свободно) закрасить вправо вниз вниз пока (слева свободно) закрасить влево конец
Компьютер помогает в работе !Он поможет сделать документы.На нем можно хранить секретные данные.А в свободный досуг - поиграть!
Следовательно
Алгоритм: Ввести а,b,S → вывести h=S/(0.5*(a+b))
<span>var</span>
<span>i,a,b,m:integer;</span>
<span>begin</span>
read(a);
read(b);
m=(a*b)/(a+b)
write('Они встретятся через ', m, ' минут');
<span>end.</span>