1) a:= b - b div 10 = 456 - 45 = 411
2) b:= a + b mod 100 = 411 + 56 = 467
3) if a < b then c := b + a = 467 + 411 = 878
Ответ: переменная "с" примет значение 878.
===== PascalABC.NET =====
begin
var a := MatrRandom(6, 6, -20, 20);
a.Println(4);
a.ElementsByRow
.GroupBy(p -> p)
.Where(p -> p.Count > 1)
.MaxBy(p-> p.Key)
.Distinct
.Println
end.
<span>1232345678910 + 1234567910 = </span>1233580246820
1 кбайт = 1024 байт.
1 байт =8 бит.
1 кбайт = 1024*8=8192 бит.
0,5 кбайт = 8192/2=4096 бит.
Ответ: 4096 бит.
Const
n = 10;
var
i, j: integer;
a: array[1..n, 1..n] of integer;
begin
for i := 1 to n do
for j := 1 to n do
if i = j then a[i, i] := n - i + 1
else a[i, j] := 0;
writeln;
for i := 1 to n do
begin
for j := 1 to n do write(a[i, j]:4);
writeln
end
end.
10 0 0 0 0 0 0 0 0 0
0 9 0 0 0 0 0 0 0 0
0 0 8 0 0 0 0 0 0 0
0 0 0 7 0 0 0 0 0 0
0 0 0 0 6 0 0 0 0 0
0 0 0 0 0 5 0 0 0 0
0 0 0 0 0 0 4 0 0 0
0 0 0 0 0 0 0 3 0 0
0 0 0 0 0 0 0 0 2 0
0 0 0 0 0 0 0 0 0 1