участок со сторонами х и у, в углу участка дом со сторонами а, с. Найти площадь дома, участка и длину забора.
помогите пожалуйста, чтоб в программе пошло все
участок со сторонами х и у, в углу участка дом со сторонами а, с. Найти площадь дома, участка и длину забора.
помогите пожалуйста, чтоб в программе пошло все
Невнятное условие, длина забора чего (участка или дома)?
[THIDE="0"]var x,y,a,c:real;
label loop;
begin
loop:
writeln('Введите x,y,a,c');
readln(x,y,a,c);
if (x<=0) or (y<=0) or (a<=0) or (c<=0)then
begin
writeln('Значения сторон должны быть больше 0');
goto loop;
end
else
writeln('Площадь дома равна ', a*c);
writeln('Площадь участка равна ', x*y);
writeln('Длина забора равна ', x+y);
end.
[/THIDE]