var
m: array [1..10000] of integer;
i,n: integer;
begin
readln(n);
for i := 1 to n do
read(m[i]);
for i := 1 to n do
write(m[i], ' ');
writeln;
for i := n downto 1 do
write(m[i],' ')
end.
Пусть основание системы счисления x, тогда маме (x + 4) года, папе (2x + 6) лет, а вместе им (4x + 2) года.
4x + 2 = (x + 4) + (2x + 6)
4x + 2 = 3x + 10
4x - 3x = 10 - 2
x = 8
Единственный возможный вариант — 8-ричная система счисления, но в ней нет цифры 9, поэтому сын не мог сказать, что ему 9 лет, а маме в этом случае было бы 8 + 4 = 12 лет, что означало бы, что ребёнок у неё появился в 3 года.
Ответ. Условие противоречиво.
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>