Информатика, вопрос задал Helpmeplease2011 , 7 лет назад

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

Ответы на вопрос

Ответил Кот49
0

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.

Ответил Helpmeplease2011
0
спасибо бро
Новые вопросы