1. var z:array[1..8,1..5] of real;
2. n[i,k]:=random(90)-62;
26 скорее всего, учили когда-то
Ответ:
Объяснение:
1.
93₁₀=1011101₂
93:2=46 (1 остаток)
46:2=23 (0 остаток)
23:2=11 (1 остаток)
11:2=5 (1 остаток)
5:2=2 (1 остаток)
2:2=1 (0 остаток)
1
2)
109₁₀=155₈
109:8=13 (5 остаток)
13:8=1 (5 остаток)
1
3)
179₁₀=B3₁₆
179:16=11 (3 остаток)
11:16=0 (11 остаток)
4)
33₁₀=45₇
33:7=4 (5 остаток)
4:7=0 (4 остаток)
5)
113₈=75₁₀
1*8^2+1*8^1+3*8^0=75
6)
11001011₂=203₁₀
1*2^7+1*2^6+0*2^5+0*2^4+1*2^3+0*2^2+1*2^1+1*2^0=128+64+8+2+1=203
7)
1AE₁₆=430₁₀
1*16^2+10*16^1+14*16^0=256+160+14=430
8.
124₅=
1*5^2+2*5^1+4*5^0=25+10+4=39₁₀
Var
a, b, c: longint;
begin
readln(a, b);
c := a - b;
if (c > b) then
writeln('Валя собрала на ', c - b, ' кг клубники больше чем Вера.');
if (c < b) then
writeln('Вера собрала на ', b - c, ' кг клубники больше чем Валя.');
if (c = b) then
writeln('Девочки собрали одинаковое количество клубники.');
end.
Var k,n:integer;
begin
readln(k);
n:=k mod 7;
writeln('n = ',n);
end.
Пример:
34
n = 6