Задать вопрос Регистрация
Помочь другим

  • Составьте программу на языке паскаль которая уменьшает первое число в 5 раз если оно больше второго по абсолютной величине.

Ответы 2

  • var

      a, b : real;

    begin

      read (a, b);

      if abs (a) > abs (b) then a := a / 5;

      writeln (a, ' ', b);

    end.

    • Автор:

      kamden
    • 5 лет назад
    • 0

  • var

      a, b:real;

    begin

      write('a = '); readln(a);

      write('b = '); readln(b);

      if abs(a) > b then

        a := a / 5;

      writeln;

      writeln('a = ', a);

      writeln('b = ', b);

      writeln;

    end.

     

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years