• Составьте программы для решения следующих задач.

    1. Определить площадь и периметр прямоугольника, если известны длина и ширина.
    2. Определить размер сдачи, если известны количество имеющихся денег и стоимость покупки.
    3. Определить стоимость проезда, если известны расстояние и стоимость проезда 1 километра.
    4. Определить стоимость покупки, если известны цена товара и количество купленных килограмм.
    5. Определить объём в литрах, если известен объём в баррелях.(1 баррель = 159 литров).

Ответы 1

  • Var A,B:real;Begin//1Write('Длина = ');ReadLn(A);Write('Ширина = ');ReadLn(B);WriteLn('S = ',A*B);WriteLn('P = ',2*(A+B));//2WriteLn;Write('Кол-во денег: ');ReadLn(A);Write('Стоимость покупки: ');ReadLn(B);WriteLn('Сдача: ',A-B);//3WriteLn;Write('Расстояние: ');ReadLn(A);Write('Стоимость проезда 1 км: ');ReadLn(B);WriteLn('Стоимость проезда ',A,' км: ',A*B);//4WriteLn;Write('Цена товара: ');ReadLn(A);Write('Вес покупки: ');ReadLn(B);WriteLn('Цена покупки: ',A*B);//5WriteLn;Write('Объём в баррелях: ');ReadLn(A);WriteLn('Объём в литрах: ',A*159);End.
    • Автор:

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

Войти через Google

или

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

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

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