Составить программу в паскаль, нужно рассчитать стоимость материалов для ремонта пола комнаты. цена 1 м^2 линолеума - 300 рублей, 1 плинтус, длиной 3 м стоит 60 рублей. сначала рассчитать площадь и периметр пола комнаты, размеры произвольные) !

137

251

Посмотреть ответы 2

Ответы на вопрос:

kwjeps

Информатика

4,7(5 оценок)

Program zz; var a,b,s,p,z,y: integer; beginwriteln('длина пола: '); readln(a); writeln('ширина пола: '); readln(b); s: =a*b; writeln('площадь пола: ',s); p: =2*(a+b); writeln('периметр пола: ',p); z: =s*300; writeln('цена линолеума: ',z,'рублей'); y: =20*p; writeln('цена плинтуса: ',y,'рублей'); end.