Ну например:
7+8=15
(Ну ведь больше 10)
Дана матрица А(4, 4)=((54, 81, 19, 43),(3, -44, 42, 51),( 76, 5, 29, -24),( 94, -92, -69, 28)). Найти в матрице максимальный эле
Волчий
A=<span>[[54, 81, 19, 43],[3, -44, 42, 51],[ 76, 5, 29, -24],[ 94, -92, -69, 28]]
maxi=A[0][0]
for i in range(4):
for j in range(4):
maxi=max(maxi,A[i][j])</span>
for i in range(4):
for j in range(4):
if i==j:
A[i][j]=A[i][j]-maxi
Var k,n:integer;
begin
readln(k);
n:=k mod 7;
writeln('n = ',n);
end.
Пример:
34
n = 6
Program xxx;
uses CRT;
var
a, i:integer;
begin
readln(a);
while (a<>0) do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>
1736 кбайта вот так чем могу тем помог