Question

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.

Answer 1

Держииииииииииииииииииииии

Answer 2

Спасибо большое

Answer 3

<3