• Переведите на русский,

    var
    x, y, b: integer;

    begin
    write ('y = x*b ');
    readln (x);

    if x > 0 then
    y := y * b
    else
    if x = 0 then
    y := 0
    else
    y := abs(x);

    writeln ('y = ', y = x*b);

    end.

Ответы 6

  • Поставишь отметку лучший ответ? :3
    • Автор:

      bobby47
    • 6 лет назад
    • 0
  • да, но как? ))
  • Там под ответом написано сделать лучшим
  • Спасибо за БС
  • Не нашёл что-то
  • Если я понял о чем ты, то вот:varx, y, b: integer; // описание переменныхbegin // начало программы write ('y = x*b ');  read(x,b);      // ввод переменной x,bif x > 0   // проверка, х больше от 0?then   y := y * b       // если да, то исполняется этоelse               if x = 0 then   //если нет, то это(тут опять же проверка, х равно 0?)y := 0             // если да то "y" присваивается 0elsey := abs(x);    // если нет то "y" присваивается значение модуль "х"writeln ('y = ', y);  // выводятся значения,end. // завершение программы
    answer img
    • Автор:

      lulu74
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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