Заданы три числа a, b, c.

Если а < 0, то вычислить и напечатать p, равное квадрату

максимального из трех чисел, в противном случае напечатать

сообщение

Question

Информатика

Илиодор

8 марта, 00:21

Заданы три числа a, b, c.

Если а < 0, то вычислить и напечатать p, равное квадрату

максимального из трех чисел, в противном случае напечатать

сообщение

+3

Ответы (1)

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

Надена · Answer 1

Var a, b, c, p, max:real;

begin

writeln ('Введите 3 числа') ;

readln (a, b, c) ;

if (a>b) and (a>c) then max:=a;

if (b>a) and (b>c) then max:=b;

if (c>a) and (c>b) then max:=c;

if a<0 then

begin

p:=sqr (max) ;

writeln ('p = ', p:6:3) ;

end

else

writeln ('a положительно ') ;

end.

Заданы три числа a, b, c.Если а < 0, то вычислить и напечатать p, равное квадратумаксимального из трех чисел, в противном случае напечататьсообщение

Заданы три числа a, b, c.

Если а < 0, то вычислить и напечатать p, равное квадрату

максимального из трех чисел, в противном случае напечатать

сообщение