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.
Держииииииииииииииииииииии
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
