Предмет: Информатика, автор: m2a0r0i5na

помогите пожалуйста!!!!! ​

Приложения:

Ответы

Автор ответа: pindanilttt
0

Ответ:

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.

Похожие вопросы
Предмет: Русский язык, автор: Misha19462