Дана матрица размерностью n×m. элементы, индексы которых четные, возвести в квадрат. измененную матрицу вывести на экран. (pascal)
230
448
Ответы на вопрос:
program n1;
const n=4; m=5;
var a: array[1..n,1..m] of integer;
i,j: integer;
begin
writeln('исходная матрица: ');
for i: =1 to n do
begin
for j: =1 to m do begin
a[i,j]: =random(20);
write(a[i,j],' ');
end;
writeln;
end;
writeln('полученная матрица: ');
for i: =1 to n do
begin
for j: =1 to m do begin
if (j mod 2=0) and (i mod 2=0) then a[i,j]: =a[i,j]*a[i,j];
write(a[i,j],' ');
end;
writeln;
end;
end.
ответ:
10234 * 157 = 1606738
1606738/8=200842 (остаток 2 )
200842/8=25105 (остаток 2 )
25105/8=3138 (остаток 1 )
3138/8=392 (остаток 2 )
392/8=49 (остаток 0 )
49/8=6 (остаток 1 )
6/8=0 (остаток 6)
1606738 (10) = 6102122 (8)
Популярно: Информатика
-
tank24318825.06.2020 19:14
-
olya239921.08.2022 23:49
-
JaLOX2284829.10.2020 15:52
-
сонечка333200224.04.2021 12:31
-
maitrewiva01.10.2022 02:55
-
Harley29Davidson23.12.2021 21:37
-
Maximismailov28105.09.2020 23:12
-
Kuznecovaalexa200523.03.2020 20:54
-
lesanazyrova05.05.2020 01:48
-
NormerSE11.01.2023 00:14