Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.