А = 1
Б = А = 1
В = А + Б = 1 + 1 = 2
Д = А = 1
Г = А + Д = 1 + 1 = 2
Е = Б + В + А + Г + Д = 1 + 2 + 1 + 2 + 1 = 7
К = Б = 1
Л = Д = 1
М = К + Е + Л = 1 + 7 + 1 = 9
Н = К + М + Л = 1 + 9 + 1 = 11
П = Н = 11
Р = Н = 11
Т = П + Р = 11 + 11 = 22
Ф = П + Т + Р = 11 + 22 + 11 = 44
Ответ: 44
берем 1 число с начала и одно с конца:
1+10=11
2+9=11
и т.д
Всегда получается 11.НАйдем количество таких пар и полученное число умножим на 11.
10:2 =5- 5 пар получится
5*11=55 сумма целых чисел от 1 до 10
и если он в руках не таял,
то под ногами таять стал. (c) Евтушенко - Третий снег
А если сегодня мне, грубому гунну,
кривляться перед вами не захочется — и вот
я захохочу и радостно плюну,
плюну в лицо вам
я — бесценных слов транжир и мот.(с) Маяковский - Нате!
Все живое особой метой
Отмечается с ранних пор.
Если не был бы я поэтом,
То, наверно, был мошенник и вор. (с) Есенин
Целый день она таращит
Умные глазенки,
Если дома кто заплачет -
Заскулит в сторонке. (с) Заболоцкий - Городок
Если точно, то никак. Всё что можно сказать, что она больше максимальной цифры в числе.
44015 - максимальная цифра 5, значит основание системы счисления 6 или больше.
110011111110011010012 - максимальная цифра 2, значит основание системы счисления 3 или больше.
1101111001 и 11011 - максимальная цифра 1, значит основание системы счисления 2 или больше.<span>
</span>8187 - максимальная цифра 8, значит основание системы счисления 9 или больше.
program raf105;
const
n = 4;
var
a,b: array[1..n,1..n] of integer;
Vkol1,Vkol2,Vsum1,Vsum2: array[1..n] of integer;
i,j,sum1,sum2,kol1,kol2: integer;
x1,x2: boolean;
begin
for i:=1 to n do
begin
x1:= False;
x2:= False;
kol1:= 0;
kol2:= 0;
sum1:= 0;
sum2:= 0;
for j:=1 to n do
begin
a[i,j]:= random(-9,9);
b[i,j]:= random(-9,9);
if a[i,j] < 0
then x1:= True;
if b[i,j] < 0
then x2:= True;
if not(x1)
then begin
sum1:= sum1 + a[i,j];
kol1:= kol1 + 1;
end;
if not(x2)
then begin
sum2:= sum2 + b[i,j];
kol2:= kol2 + 1;
end;
end;
Vkol1[i]:= kol1;
Vkol2[i]:= kol2;
Vsum1[i]:= sum1;
Vsum2[i]:= sum2;
end;
writeln('Массив A');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j]:3);
end;
writeln;
writeln;
writeln('Массив B');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(b[i,j]:3);
end;
writeln;
writeln;
write('Вектор "Количество по строкам A": ');
for i:=1 to n do
write(Vkol1[i],' ');
writeln;
write('Вектор "Количество по строкам B": ');
for i:=1 to n do
write(Vkol2[i],' ');
writeln;
write('Вектор "Сумма по строкам A": ');
for i:=1 to n do
write(Vsum1[i],' ');
writeln;
write('Вектор "Сумма по строкам B": ');
for i:=1 to n do
write(Vsum2[i],' ');
end.
<h3><u>PascalABC 3.4.2</u></h3>