• СРОЧНООО! ПОМОГИТЕ ПО ИНФЕ!
    Написать программу через PascalABC :з
    Задача 2. Составить программу, решающую следующую задачу: Дано трехзначное число. Вывести число, полученное при перестановке крайних цифр исходного числа.

    Задача 3. Составить программу, решающую следующую задачу: Вы продавец, и у Вас имеются гири весом 1, 2, 5 кг. Наберите минимальное количество гирь для взвешивания N кг.

Ответы 1

  • 2.var a,b:integer;beginwrite('a = ');readln(a);b:=(a mod 10)*100 + (a div 10 mod 10)*10 + a div 100;writeln('b = ',b);end.Пример:a = 194b = 4913.var n,k5,k2,k1:integer;beginwrite('n = ');readln(n);k5:=n div 5;k2:=(n-k5*5) div 2;k1:=n-k5*5-k2*2;writeln('5 кг - ',k5,', 2 кг - ',k2,', 1 кг - ',k1);end.Пример:n = 185 кг - 3, 2 кг - 1, 1 кг - 1
    • Автор:

      tarakbjh
    • 2 года назад
    • 17
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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