<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (x,y,z):=ReadReal3('Введите x,y,z:');
Writeln(Max(x*x+y*y*y,y*y+z*z*z)-4)
end.
<u>Пример</u>
Введите x,y,z: 2.6 -1.05 4
61.1025
// PascalABC.NET
<span>// Версия 3.3.5 сборка 1662 (29.04.2018)
</span>
begin
Println('Цифры:', ReadInteger('n-> '). ToString.Reverse.Println.Reverse.JoinIntoString(' '))
end.
<u>Пример:</u>
n-> 451234
432154
Цифры: 4 5 1 2 3 4
Program konf;
var a, b, summ: real;
begin
a := 1.2;
readln(b);
while a < 2 do
begin
summ := a * b;
writeln(summ, ' za ', a);
a := a + 0.2
end;
<span>end.</span>
///////////////////////////////////////////