Перевести числа из одной системы счисления в другую

Question

Информатика: Перевести числа из одной системы счисления в другую

lenichk · Accepted Answer

1)
var
c:array [1..15] of integer;
i,n:integer;
Begin
n:=1;
randomize
;for i:=1 to 15 do
c[i]:=random(50);
for i:=1 to 15 do
write(c[i],' ');
for i:=1 to 15 do
if c[i] mod 9=0 then
n:=c[i]*n;
writeln;
for i:=1 to 15 do
write(c[i],' ');
writeln;
writeln(n);
End.
2)
var
b:array [1..25] of integer;
i,,j:integer;
cr:real;
Begin
randomize;
for i:=1 to 25 do
b[i]:=random(50);
for i:=1 to 25 do
write(b[i],' ');
for i:=1 to 25 do
if b[i] mod2<>0 then
Begin
cr:=cr+b[i];
j:=j+1;
end;
cr:=cr/j;
writeln;
write(cr);
End.
Не забудьте сказать

MOGZ ответил