• №17а. Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число.
    №37. Даны три числа. Составить программу нахождения суммы двух наибольших из этих трех чисел.
    Помогите пожалуйста паскаль!!!!!!!!!!!!!!!

Ответы 1

  • var a: integer;beginwrite('Введите трехзначное число: ');readln(a);writeln('Результат: ',(a mod 100)*10+(a div 100));end.var a,b,c:integer;beginwriteln('Введите a,b,c');write('a=');readln(a);write('b=');readln(b);write('c=');readln(c);if a+b>b+c thenbeginif a+b>a+c thenwrite('a+b=',a+b)else write('c+a=',c+a);endelse if b+c>=a+b thenbeginif b+c>c+a thenwrite('b+c=',b+c)else write('c+a=',c+a);endelsewrite('c+b=',c+b);end.
    • Автор:

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

Войти через Google

или

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

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

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