Сделать программу ABCpascal

Даны 2 числа если оба числа отрицательные то найти корень из деления иначе увеличить первое в 3 раза а второе на 7

Question

Атиф

19 ноября, 02:59

+2

Ответы (1)

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

Аглина · Answer 1

var a, b : real;

begin

read (a, b) ;

if (a<0) and (b<0) then Writeln (sqrt (a/b)) else

Writeln (a*3,' ', b+7) ;

end.

Сделать программу ABCpascalДаны 2 числа если оба числа отрицательные то найти корень из деления иначе увеличить первое в 3 раза а второе на 7