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.