1. Хозяин желает оклеить обоями стенку длиной b и вышиной a метров.

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 gt; i and then Writeln ('Подходит'); else Writeln ('Не подходит') end.

Viktor Fajgilev 2019-08-10 20:40:59

ппц,что ты пишешь в программке?

Андрей Бивайтис 2019-08-10 20:42:40

ТО что выложил

Esenija Duhina 2019-08-10 20:47:56

Ну гляди

Елизавета Бор-Раменская 2019-08-10 20:50:15

Вот в заключительном алоритме

Вадим Вереня 2019-08-10 20:53:16

if u > i then

Андрей Цылихин 2019-08-10 20:59:05

Writeln ('Подходит')

Павел Клозов 2019-08-10 21:06:25

else Writeln ('Не подходит')

Руслан 2019-08-10 21:12:40

end.

Николай 2019-08-10 21:21:23

в чём?

Темаев Данил 2019-08-10 21:29:13

ошибка