Ответ:
program k;
var
y, x :integer;
begin
writeln ('введите х');
readln ('x');
if x>0 then
y:=2*x;
writeln ('y',=y');
else
y:=-2*x;
('y',=y');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program k;
var
y, x :integer;
begin
writeln ('введите х');
readln ('x');
if x>0 then
y:=2*x;
writeln ('y',=y');
else
y:=-2*x;
('y',=y');
end.