Var a,e,z,y,x:integer;
Begin
Writeln('Введите трехзначное число');
Readln(a);
x:=a div 100;
y:=(a-x*100) div 10;
z:=a-y*10-x*100;
e:=x+y+z;
writeln('Сумма чисел ',x,' ',y,' и ',z,' равна ',e,'.');
<span>end.
p.s.
</span>a-трехзначное число
e-сумма чисел
x, <span>y </span>и <span>z </span>- первое, второе и третье число соответственно.
Она называется полиномом седьмой степени. Математику учите...
Жди, пока закончится. Это проверка и исправление ошибок на диске.
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>