Предмет: Информатика,
автор: m2a0r0i5na
помогите пожалуйста!!!!!
Приложения:
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Другие предметы,
автор: Unio
Предмет: Английский язык,
автор: MakyChannel
Предмет: Русский язык,
автор: Danchik232746
Предмет: Английский язык,
автор: Умник55550
Предмет: Русский язык,
автор: Misha19462