ответ: 1
Объяснение:
a=26 - a равна 26b=6 - b равна 6b=a//b - b равна целой части от деления a на b(26=6*4+2) = 4
с=a%(b+1) - с равна остатку от деления a на b+1 (26=5*5+1) = 1Задание 2:ответ: 28
Объяснение:
a=26 - a равна 28b=6 - b равна 7b=a%b - b равна остатку от деления a на b (28%7 = 0)с=a//(b+1) - с равна целой части от деления a на b+1(28//1 = 28)
Задание 3:ответ: 8
Объяснение:
a=-37 - a равна -37b=5 - b равна 5с=a%b +b - с равна (остатку от деления a на b) + b:c = (-37%5) + 5 = 3 + 5 = 8
Задание 4:ответ: 6
Объяснение:
a=24 - a равна 24b=5 - b равна 5b=a//b - b равна целой части от деления a на b (24//5 = 4)c=a//b - с равна целой части от деления a на b (24//4 = 6)Задание 5:ответ: 5
Объяснение:
a=-45 - a равна -45b=6 - b равна 6b=a%b +4 - b равна (остатку от деления a на b) + 4:b = (-45%6) +4 = 3 + 4 = 7
c=a%b +1 - с равна (остатку от деления a на b) + 1:c = (-45%7) +1 = 4 + 1 = 5
Задание 6:ответ: 3
Объяснение:
Если первое введённое число меньше 10, а второе больше, то "ДА".
Таких пар у нас 3: (1; 12), (-11; 12), (-12; 11)
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;
writeln('Matrix A:'); //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
writeln;
for j:=1 to n do
begin;
a[i,j]:=random(10);
write(a[i,j]:4);
end;
end;
writeln;
writeln('Matrix C:'); //аналогично
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
c[i,j]:=random(10);
write(c[i,j]:4);
end;
end;
for i:=1 to n do //сохраняем матрицу C для транспонации
for j:=1 to n do
ma[i,j]:=c[i,j];
writeln;
writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
c[i,j]:=ma[j,i];
write(c[i,j]:4);
end;
end;
writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
write(ma[i,j]:4);
end;
end;
end.