тест 10 позиционные системы счисления
в-2
1. какое минимальное основание n должно быть у системы
счисления, чтобы в ней были правильными
записи 721n, 333, 642 и 221?
2. отметьте число, которое делится на 16.
1) 1234 2) 1114 3) 2004 4) 2214
3. выберите наименьшее из чисел.
1) 1; 2) 16 3) 1; 4) 1 5) 1
4. запишите число 2335 в десятичной системе счисления.
5. в системе счисления с некоторым основанием n десятичное
число 129 записывается в виде как 1004. найдите это основание.
6. найдите все основания систем счисления, в которой запись
числа 31 оканчивается на 11.
7. запишите число 79 в системе счисления с основанием 5.
2. Почти ничего не меня получим код для цикла while:
var
i, n, k: integer;
begin
i := 2;
readln(n);
while i <= n div 2 do begin
if (n mod i) = 0 then k := i;
i:=i+1;
end;
writeln('наибольший делитель ', n, ' = ', k);
end.
3. Аналогично для цикла Repeat:
var
i, n, k: integer;
begin
i := 2;
readln(n);
repeat
if (n mod i) = 0 then k := i;
i:=i+1;
until i> n div 2;
writeln('наибольший делитель ', n, ' = ', k);
end.
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
for i := 1 to N do
p:=p*x;
writeln(x,' в степени ',n,' равно ',p );
end.
2. Для цикла While
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
while i<=n do begin
p:=p*x;
i:=i+1;
end;
writeln(x,' в степени ',n,' равно ',p );
end.
3. Для цикла Repeat
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
repeat
p:=p*x;
i:=i+1;
until i>n;
writeln(x,' в степени ',n,' равно ',p );
end.