• Ребят помогите решить задачу!)
    Даны размеры комнаты.
    1) Найти сколько рулонов обоев нужно для поклейки стен ( ширина 1 м , длина 10 м).В комнате 3 окна , одно окно площадью 2 м^2, одна дверь площадью 3 м^2.
    2)Вычислить сколько метров необходимо для покрытия пока , если ширина линолиума 1.5 м^2.Сколько денег заплатили за обои и за линилиум?.Цена одного рулона и 1м^2 линолиума вводится с помощью клавиатуры.(Packal)

Ответы 2

  • Я не проверял на правильность
    • Автор:

      taye
    • 6 лет назад
    • 0
  • program oboiilinoleum;var a, b, h, wa, wb, o, l, co, cl:integer;begin     write('Введите длину комнаты');     readln(a);     write('Введите ширину комнаты');     readln(b);     write('Введите высоту комнаты');     readln(h);          write('Введите стоимость одного рулона обоев');     readln(o);          write('Введите стоимость одного рулона линолеума');     readln(l);          co:=(2*(a*h + b*h) - 6 - 3)/10;     cl:=trunc(a*b/1.5);     writeln('Количество рулонов, необходимое для поклейки стен комнаты: ', co);     writeln('Для покрытия пола линолеумом необходимо ', cl, ' метров линолеума');     writeln('За линолеум нужно заплатить ', cl*l, ', а за обои - ', co*o);end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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