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

Question

Информатика

Гошуня

3 июня, 10:59

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

+3

Ответы (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.