Даны действительные числа A, B, C. Проверить, производятся ли неравенства Aamp;lt;Bamp;lt;C,

Даны действительные числа A, B, C. Проверить, производятся ли неравенства Alt;Blt;C, если да, то, присвоить A=B+C, по другому A=C-B. Напишите как это обязано смотреться в Pascal'е .

Задать свой вопрос
1 ответ
Program gt;
var A,B,C:real;
begin
readln(A,B,C);
if(Alt;B)and(Blt;C)then A:=B+C else A:=C-B;
writeln(A,' ',B,' ',C);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт