сделать программку ABCpascalДаны 2 числа если оба числа отрицательные то отыскать

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

Задать свой вопрос
1 ответ

var a,b : real;

begin

read(a,b);

if (alt;0) and (blt;0) then Writeln(sqrt(a/b)) else  

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

end.

Саша
спасибо бро
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт