<span>а) A2:B10
Тут строки от 2 до 10 (всего 9) и колонки от А до В (всего 2).
Они образуют 9 х 2 = 18 ячеек.
</span>б) C13:E20
<span>Тут строки от 13 до 20 (всего 8) и колонки от С до Е (всего 3).
Они образуют 8 х 3 = 24 ячейки.</span>
Четверичная система содержит в себе цифры 0,1,2,3, основание - 4, нигде особо не применяется, ну а таблицу я думаю переводом из двоичной в четверичную
Var
s: real;
begin
write('Введите сумму покупки: ');
readln(s);
if s > 1000 then
s := s * (1 - 0.05)
else if s > 500 then
s := s * (1 - 0.03);
writeln('Сумма покупки с учетом скидки: ', s);
end.
1.
Const N = 10;
Var i,S:integer; m:array [1..N] of integer;
Begin
randomize; S:=0;
for i:=1 to N do begin
m[i]:= random(201)-100;
writeln(m[i]);
end;
for i:=1 to N do
if m[i] mod 2 = 0 then
S:=S+m[i];
writeln('Summa = ',S);
readln;
end.
2.
Const N = 100;
Var i,p:integer; B:array [1..N] of integer;
Begin
randomize; p:=0;
for i:=1 to N do begin
B[i]:= random(201)-100;
writeln(B[i]);
end;
for i:=1 to N do
if B[i] mod 3 = 0 then
p:=p*B[i];
writeln('Proiz = ',p);
readln;
end.<span>
</span>