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

Question

Информатика

Бажен

22 августа, 05:14

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

+1

Ответы (1)

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

Косьма · Answer 1

Var a:integer;

begin

writeln ('a=') ;

readln (a) ;

if (a>0) then writeln ('cislo polojitelinoe', a/2) else

writeln ('cislo otritatelinoie', sqr (a)) ;

readln;

end.