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

Question

Информатика

Ильинична

27 сентября, 14:43

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

+3

Ответы (1)

Знаете ответ на вопрос?

Гермуся · Answer 1

Program a2;

var a, b:integer;

begin

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

readln (a) ;

if a > 0 then begin

b:=a div 2;

end

else

begin b:=a*a;

end;

write ('b', b) ;

end.