Дом состоит из N-го количества прямоугольных комнат введите значение длины и ширины каждой комнаты,найдите их площадь и общую сумму площадей всех комнат
Ответы
Ответ дал:
0
program raf105;
var n,a,b,s,sum,i:integer;
begin
write('Введите количество комнат: ');
readln(n);
for i:=1 to n do
begin
writeln;
writeln('Комната №',i);
write('Длина: ');
readln(a);
write('Ширина: ');
readln(b);
s:= a*b;
writeln('Площадь: ',s,' м²');
sum:= sum+s;
end;
writeln;
writeln('Общая сумма площадей всех комнат: ',sum,' м²');
end.
Язык программирования PascalABC
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
8 лет назад
8 лет назад
9 лет назад