Ответ:
Ответ - в прилагаемом файле.
Объяснение:
var a: array [1..100,1..100] of integer;
b:array [1..100] of integer;
n,m,i,j:integer;
Begin
read(n,m);
for i:= 1 to n do
for j:= 1 to m do
read(a[i,j]);
for i:= 1 to n do begin
b[i]:=0;
for j:= 1 to m do
b[i]:=b[i]+a[i,j];
writeln('b[',i,'] = ',b[i]);
end;
End.
<em><u>Программа на языке PascalABC.Net:</u></em>
var
sPred,sSucc,i,d:integer;
begin
sPred:=36;
for i:=2 to 127 do
begin
sSucc:=0;
while sPred>0 do begin
d:=sPred mod 10;
sSucc:=sSucc+d*sqr(d);
sPred:=sPred div 10
end;
sPred:=sSucc
end;
Writeln(sSucc)
end.
<em><u>Результат выполнения программы:</u></em>
153
Русские называют этот символ собакой..
в Голандии этот символ называют обезьяний хвост...
в Польше, Хорватии, Румынии - обезьяна..
Финляндия- кошкин хвост
Франция - улиточка
Венгрия - гусеничка, червячок
Сербия - лудо а, что озночает чокнутая а
Китай - мышонок..
отблагодари меня, нажав "спасибо" и "лучший ответ"
Var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
<span>end.
</span>