1. Хозяин хочет оклеить обоями стену длиной b и высотой a метров. У него имеется k рулонов шириной 55 см и длиной 10,5 м. Хватит ли обоев на оклейку стены? Как это решить?*ПаскальProgram gg; Var a,b,k,g,u,i,max,w:integer;Begin;...

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.
Гость
Ответ(ы) на вопрос:
Гость
Держииииииииииииииииииииии
Гость
Зачем столько переменных??
Не нашли ответ?
Ответить на вопрос
Похожие вопросы