Поштовий ящик електронної пошти це А) частина оперативної пам'яті на сервері Б) частина оперативної пам'яті на робочій станції В) частина зовнішньої пам'яті на робочій станції Г) частина зовнішньої пам'яті на сервері
Может так?.. а) Program tt; var t,z,x,y:integer; begin writeln ('Введите x, z, y'); read (x,z,y); t:=z+x+y; if x>0 then Writeln (t,' = TRUE') else Writeln (t,' = FALSE') end. б) Program tt; var t,z,x,y:integer; begin writeln ('Введите x, z, y'); read (x,z,y); t:=z+x+y; if (x=y) or (y=z) or (x=z) then Writeln (t,' = TRUE') else Writeln (t,' = FALSE') end. в) Program tt; var A,B,C,t: Real; begin Writeln ('Введите коэффициенты: A B C'); Readln(A,B,C); t := B * B - 4 * A * C; if t < 0 then Writeln (t,' = TRUE') Else Writeln (t,' = FALSE') End.
а)
Program tt;
var t,z,x,y:integer;
begin
writeln ('Введите x, z, y');
read (x,z,y);
t:=z+x+y;
if x>0 then
Writeln (t,' = TRUE')
else
Writeln (t,' = FALSE')
end.
б)
Program tt;
var t,z,x,y:integer;
begin
writeln ('Введите x, z, y');
read (x,z,y);
t:=z+x+y;
if (x=y) or (y=z) or (x=z) then
Writeln (t,' = TRUE')
else
Writeln (t,' = FALSE')
end.
в)
Program tt;
var A,B,C,t: Real;
begin
Writeln ('Введите коэффициенты: A B C');
Readln(A,B,C);
t := B * B - 4 * A * C;
if t < 0 then
Writeln (t,' = TRUE')
Else
Writeln (t,' = FALSE')
End.