Ну, раз считают "половинками", то и система будет "половинчатая")))
Значит, основание системы равно 1/2 или 0,5
Хотя, вряд ли. Надо подумать.
Фактически, должно выполняться равенство
где х - искомое основание системы
Но тут мы пользуемся алфавитом десятичной системы, а у новой системы должен быть свой алфавит. Противоречие какое-то.
В общем, я запутался((((
X1=0; x2=0,2; x3=0,4; x4=0,6; x5=0,8 соответственно y1=4 ; y2=3,24 ; y3=2,56; y4=1,96 ; y5=1,44
x6=1 x7=1,2 x8=1,4 x9=1,6 x10=1,8 x11=2 соответственно y6=2 y7=2,44 y8=2,96 y9=3,56 y10=4,24 y11=5
//Нет слов...
begin
for var i:=1 to 50 do writeln (i)
end.
1)
program z1;
Var a:integer;
Begin read(a);
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом');
end.
2)
program z2;
Var i:integer;
Begin
for i:=1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');
end.
2 способ:
program z2;
Var i:integer;
Begin
i:=1;
while i<=9 do
begin write(i, ', ');
i:=i+2;
end;
end.
3)
program z3;
Var i,n:integer;
S:real;
a: array[1..100] of real;
Begin
write('Введите количество элементов массива:');
readln(n);
write('Введите элементы массива:');
for i:=1 to n do read(a[i]);
i:=1; S:=0;
while i<=n do
begin S:=S+a[i];
i:=i+2;
end;
write('S=',S);
end.
Швейная машина
быстрая, нужная
помогает, зашивает, штопает
Без нее некуда!
одежда