Предмет: Информатика,
автор: sazhinegor19
Дано число, если оно отрицательное, то поменять знак, в противном случае увеличить в 2 раза (паскаль 8 кл)
Ответы
Автор ответа:
1
var x: integer;
begin
writeln('Введите число.');
Readln (x);
if x < 0 then
writeln (x*(-1))
else
writeln (2*x);
end.
begin
writeln('Введите число.');
Readln (x);
if x < 0 then
writeln (x*(-1))
else
writeln (2*x);
end.
Похожие вопросы
Предмет: Физика,
автор: aigerimyesenzhol
Предмет: Математика,
автор: savvasehovcov
Предмет: Алгебра,
автор: klltoycops
Предмет: Математика,
автор: nina8545