Var n,sum,sum2,d,ind,i,j:integer; sred :double;
begin
Write('n');
Readln(n);
d:=1;
ind:=3;
sum:=0; sum2:=0;sred:=0;
for i:=0 to ind-1 do
begin
sum:=sum+(n div d) mod 10;
sred:=sum/3;
sum2:=sum2+ sqr((n div d) mod 10);
d:=10*d;
end;
Writeln('suma ',Sum);
Writeln('Sum 2 ',sum2);
writeln('Sred ',sred:0:5);
//Writeln('вывод цифр');
d:=1;
for i:=0 to ind-1 do
begin
writeln((n div d) mod 10);
d:=10*d;
end;
readln;
end.
<em>№1 111010</em>
<em>№2 2d</em>
<em>№3 12</em>
<em>№4 44</em>
<em>№5 84</em>
<em>№6 27</em>
<em>№7 205</em>
<em>№8 100101100</em>
<span><em> 454</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>
У Ани синяя,у Маши белая,у Вари красная
Программа для решения задачи - в прилагаемом файле. Только размерность там не 20*30, а 5*4 (чтобы легче проверять было).
Будет 144
Решение:
2х1 1
2х2 2
2х3 1+2=3
2х4 2+3=5
2х5 3+5=8
2х6 5+8=13
2х7 8+13=21
2х8 13+21=34
2х9 21+34=55
2х10 34+55=89
2х11 55+89=144
Если помог поддержите и нажмите спасибо!)