С помощью компьютера можно сделать любой дизайн
Ответ:
Объяснение:
1. read(a,b,c); вместо read('a,b,c');
2. Добавить скобку после 4ас f: =(-b+sqrt(sqr(b)+4*a*c))/(2*a)+abs(c);
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var x:=ReadReal;
if x<=0 then write(0) else if x>1 then write(x**4) else write(x);
end.
{Эта рабочая 100% :3}
var n: string;
procedure foo(str: string);
begin
writeln(str);
end;
function foo1(str: string): string;
begin
foo1:= str;
end;
begin
foo('I am a procedure');
n:= foo1('I am a function');
writeln(n);
end.
Var
x, y, s: real;
begin
readln(x);
readln(y);
s := abs(x) - abs(y) / 1 + abs (x*y);
writeln(s);
<span>end.</span>