написать программу в паскале: 1. Даны три числа. Вычислить, если возможно сумму квадратных корней из этих чисел, в противном случае вывести соответствующее сообщение.

Question

Информатика

Витольда

25 февраля, 17:17

написать программу в паскале: 1. Даны три числа. Вычислить, если возможно сумму квадратных корней из этих чисел, в противном случае вывести соответствующее сообщение.

+3

Ответы (1)

Знаете ответ?

Романыч · Answer 1

Var a, b, c:integer;

begin

read (a, b, c) ;

if (a>=0) and (b>=0) and (c>=0) then

writeln (sqrt (a) + sqrt (b) + sqrt (c))

else

writeln ('Одно из чисел отрицательное') ;

end.