Var
res,mas:array[1..100] of real;
k,i:integer;
begin
k:=0;
for i:=1 to 15 do
read(mas[i]);
for i:=1 to 15 do
begin
if mas[i]<0 then
write(mas[i],' ')
else
begin
k:=k+1;
res[k]:=mas[i];
end;
end;
for i:=1 to k do
write(res[i],' ');
<span>end.</span>
Четверичная система содержит в себе цифры 0,1,2,3, основание - 4, нигде особо не применяется, ну а таблицу я думаю переводом из двоичной в четверичную
Ответ:
program Number3;
var
a, i: Integer;
begin
Randomize;
a := Random (900) + 100;
WriteLn ('Получено число ', a);
WriteLn ('сотни ', a div 100);
WriteLn ('десятки ', (a div 10) mod 10);
WriteLn ('единицы ', a mod 10);
ReadLn;
end.
Var i, s: integer;
begin
s:=0;
for i:=1 to 100 do
if (i mod 2 <>0) then s:=s+i;
<span>end;</span>
Насколько я понимаю, это комплекс интернет - услуг.