===== PascalABC.NET =====
begin
var x := ReadReal('x =');
var y := 2 * (x + 3) + Sqr(3 / (1 - 4 * x));
Println(y)
end.
Примечание. При х = 0.25 в знаменателе образуется ноль. В этом случае программа выдаст значение Infinity (бесконечность).
Если переменная создана уже в варе, то она будет равна 0, а если вообще не создана , то вообще будет ошибка компиляции
Var x, y: real;
begin
writeln (' Ââåäèòå ÷èñëà x, y');
readln (x,y);
if x>y then x:=x-y
else x:=x-y;
if x>y then y:=x+y
else y:=y-x;
writeln ('÷èñëî x',x);
writeln ('÷èñëî y',y);
end.
Вот таблица сделанная на Exel.
<span>посмотрите на фотографии и скажите, что они сделали вчера</span>