// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var s:=ReadlnString('>');
s:=s.Replace(' ',''); Writeln(s);
end.
<u><em>Тестовое решение:</em></u>
> А роза упала на лапу Азора
АрозаупаланалапуАзора
<h2><em>Пропорция:
</em></h2><h2><em></em></h2><h2><em>4 секунды - (5 * 128 = 640) байт
</em></h2><h2><em></em></h2><h2><em>1 секунда - X
</em></h2><h2><em></em></h2><h2><em></em></h2><h2><em>Решаем:
</em></h2><h2><em></em></h2><h2><em>X = (1 * 640) / 4 = 640 / 4 = 160
</em></h2><h2><em></em></h2><h2><em></em></h2><h2><em>Ответ:
</em></h2><h2><em></em></h2><h2><em>Пропускная способность канала равняется 160 байт за одну секунду.</em></h2>
Ответ:
Если сумма квадратов двух сторон равна квадрату третьей, то прямоугольный, если больше, то остроугольный, если меньше то тупоугольный. Если все стороны равны равносторонний, если две стороны равны, а третья нет, равнобедренный.
0
Ответ:
var
n1, n2, dif: real;
begin
readln(n1, n2);
dif:= n1-n2;
if n1-n2 > 0 then
writeln('Разность положительная. Разность = ', dif)
else if n1-n2 < 0 then
writeln('Разность отрицательная. Разность = ', dif)
else
writeln('Разность равна нулю. Разность = ', dif);
end.
Объяснение:
APPLE FOR DINNER Как то так