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

  • Меньшее из трех заданных чисел ABC заменить удвоенным произведением этих чисел. Через паскаль пожалуйста.

Ответы 1

  • program av;

    var a,b,c,d,e,f:integer;

    begin

    writeln('введите 3 числа');

    readln(a,b,c);

    if (a<b) and (a<c)

    then a:=2*a*b*c

    else 

    if (b<a) and (b<c)

    then   b:=2*a*b*c 

    else  c:=2*a*b*c;

    writeln(a,' первое число',b,'второе число',c' третье число') ;

    end. 

     

     

    • Автор:

      azul
    • 6 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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