Как это сделать в Pascal ABC?Контрольная работа,очень надобно!

Как это сделать в Pascal ABC?Контрольная работа,очень надобно!

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

var x,y:real;

begin

 write('Введите число X: ');readln(x);

 write('Введите число Y: ');readln(y);

 if xlt;gt;0 then writeln('A= ',sqrt(x+(y/(3*x))):0:2)

 else writeln('На нуль разделять нельзя!!!');

end.

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


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

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

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

Войти на сайт