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

Дано число, если оно отрицательное, то поменять знак, в противном случае увеличить в 2 раза (паскаль 8 кл)

Ответы

Автор ответа: Nata9911
1
var x: integer;
begin
writeln('Введите число.');
Readln (x);
if x < 0 then
writeln (x*(-1))
else
writeln (2*x);
end.
Похожие вопросы
Предмет: Математика, автор: savvasehovcov
Предмет: Математика, автор: nina8545