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

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

Question

Информатика

Евфимий

28 января, 16:34

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

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

+4

Ответы (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) - квадрат числа