Программа на языке паскаль.

ввести с клавиатуры целое число, если оно положительное возвести его в квадрат, если отрицательное возвести в четвёртую степень. Напечатать результат на экране

Question

Информатика

Егорыч

27 октября, 22:23

Программа на языке паскаль.

ввести с клавиатуры целое число, если оно положительное возвести его в квадрат, если отрицательное возвести в четвёртую степень. Напечатать результат на экране

+5

Ответы (1)

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

Андрюха · Answer 1

Program rezultat;

var a: integer;

begin

write ('a=') ; readln (a)

if a>0 then write (sqr (a))

else write (sqr (a) * sqr (a))

end.

sqr (a) - квадрат числа