Question

Помогите пожалуйста с заданием !!

Answer 1

Пожалуйста.
Программа прикреплена.
Вот текстовый вариант:
program slishkomprosto;
var
 shir,vis,dvervis,oknovis,dvershir,oknoshir:real;
begin
 writeln('Введите ширину комнаты');
readln(shir);
writeln('Ширина комнаты= ', shir);
writeln('Введите высоту комнаты');
 readln(vis);
writeln('Высота комнаты= ', vis);
 writeln('Введите ширину окна');
 readln(oknoshir);
writeln('Введите высоту окна');
readln(oknovis);
writeln('Введите ширину двери');
readln(dvershir);
writeln('Введите высоту двери');
 readln(dvervis);
writeln('Площадь стен для обклеивания обоями=', vis*shir-(dvershir*dvervis)-(oknovis*oknoshir));
End.

c4f9948b0d1db09d5c26c5bdea84038d.pas

Answer 2

Не показывает