Составить программу. Если число положительное то увеличте его в 2 раза, если число отрицательное то уменьшите его в 2 раза

Question

Информатика

Наталий

25 сентября, 22:55

Составить программу. Если число положительное то увеличте его в 2 раза, если число отрицательное то уменьшите его в 2 раза

+2

Ответы (2)

Знаете ответ?

Лонгин · Answer 1

А что делать с нулём? : D На паскале получится вроде что-то этого:

Program: ...

Var: a; integer;

Begin

readln (a) ;

begin

If a>0 then

a: = a*2;

else a: = a:2;

end;

writeln (a) ;

End.

Альвина · Answer 2

Program task;

var a:real;

begin

write ('Введите число : ') ;

read (a) ;

if a>0 then writeln (a*2)

else writeln (a/2) ;

end.