<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('>').ToWords.Println
end.
<u>Пример</u>
> Это строка с лишними пробелами
Это строка с лишними пробелами
100*30*60=180000 байт
28800/8=3600 байт/с
180000/3600=50 секунд
Var i,j: integer;
chislo: string;
begin
chislo:='12323';
for j:=1 to 14 do
begin
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='1' then begin delete(chislo,i,1);insert('33',chislo,i); inc(i); end;
inc(i);
end;
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='2' then begin delete(chislo,i,1);insert('1',chislo,i); end;
inc(i);
end;
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='3' then begin delete(chislo,i,1);insert('2',chislo,i); end;
inc(i);
end;
end;
Writeln(chislo);
readln;
end.
var
x, y, z: <em>real</em>;
a, b, c: <em>real</em>;
begin
readln(x, y, z);
if (x + y < 1) then
begin
a := (y + z) / 2;
b := (x + z) / 2;
c := (x + y) / 2;
x := a;
y := b;
z := c;
end
else
begin
x := sqr(x);
y := sqr(y);
z := sqr(z);
end;
writeln(x, ' ', y, ' ', z);
end.