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

  • Даны 3 числа a, b, c. Если a<b<c, числа удвоить. Иначе найти их абсолютную величину.

Ответы 1

  • Program n1;Uses CRT;Const n=10;Var a,b,c: integer;beginClrScr;Writeln('Vvedite a,b i c');Readln(a,b,c);If (a<b) and (b<c) then begin a:=a*2; b:=b*2; c:=c*2; endelse begin a:=abs(a); b:=abs(b); c:=abs(c); end; writeln;Writeln(a,b,c);readlnend.

    • Автор:

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

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

Еще вопросы

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

Войти через Google

 или

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

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

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