даны три действительных числа удвойте их,если они окажутся упорядоченными по возрастанию

Даны три реальных числа удвойте их,если они окажутся упорядоченными по возрастанию

Задать свой вопрос
Lenja
На каком языке? Бейсик? Паскаль?
Диман Ганфа
Паскаль
1 ответ
Var a,b,c:real;
begin
readln(a,b,c);
if (alt;b) and (blt;c) then
  begin
  a:=2*a;
  b:=2*b;
  c:=2*c;
  writeln(a,' ',b,' ',c)
  end
  else writeln('числа неупорядочные')
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт