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.
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.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
;
В этой программе мы сначала запрашиваем у пользователя высоту стены (a), длину стены (b) и количество рулонов обоев (k). Затем мы вычисляем площадь стены (u) как произведение высоты на длину.
Далее мы вычисляем общую площадь обоев (i) как произведение ширины рулона на длину рулона на количество рулонов.
Затем мы сравниваем площадь стены с общей площадью обоев. Если площадь стены больше, чем общая площадь обоев, то говорим, что обоев хватит на оклейку стены. Если нет, то обоев не хватит.
Видно, что программа написана с ошибками. Нужно исправить условие на "if u > i then" и добавить "begin" после "then" перед вызовом Writeln. А также добавить "end" после Writeln ('Не подходит')