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.
<u><em>Язык программирования PascalABC</em></u>
Разумеется. Человек-носитель информации.Мозг запоминает всякие разные моменты за всю жизнь,да и он намного лучше всякой там флешки
Крайне часто на глаза стала попадаться именно эта загадка.
Колонка <em>(а собака - болонка)</em>
<u>графический интерфейс</u>. ( ну и так для ознакомления:В графическом интерфейсе компьютерные обьекты представляютя небольшими рисунками(значками), нужный значок выбирают с помощью мыши.Кроме значков используются также тексты(для подсказок) и меню (для выбора команд)
// PascalABC.NET 3.3
begin
var x:=ReadInteger;
writeln((1+x)*x div 2);
end.
Пример:
6
21