Составьте программу которая удваивает число , если оно положительно и делит ** 2 , если...

Question

Составьте программу которая удваивает число , если оно положительно и делит на 2 , если оно отрицательно.

Comments

Удваивает на 2?

Answer 1

Язык - pascal

var num: integer;
begin
readln (num);
if(num>0) then
  writeln(num * 2)
else
  writeln(num / 2)
end.

Comments

Спасибо мне 3 поставили