• 1. Хозяин хочет оклеить обоями стену длиной b и высотой a метров. У него имеется k рулонов шириной 55 см и длиной 10,5 м. Хватит ли обоев на оклейку стены?

    Как это решить?
    *Паскаль

    Program gg; Var a,b,k,g,u,i,max,w:integer;Begin; Writeln('Введите высоту стены '); Readln(a); Writeln('Введите длину стены '); Readln(b); Writeln('Введите колличество рулонов'); Readln(k); u:=(a*b); g:=0.55; w:=10.5; Writeln('Площадь стены равна метров ',u); i:=g*w*k; Writeln('Общая площадь обоев метров',i); Readln(u,i); if u > i and then    Writeln ('Подходит');   else Writeln ('Не подходит') end.

Ответы 3

  • Спасибо большое
    • Автор:

      dante18
    • 6 лет назад
    • 0
  • <3
  • Держииииииииииииииииииииии
    answer img
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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