Примеры переводов в разные сс:
(1) 0,101_2 = 0 * 2^0 + 1 * 2^-1 + 0 * 2^-2 + 1 * 2^-3 = 1/2 + 1/8 = 5/8 = 0.625_10
(2) 0,6_8 = 0 * 1 + 6/8 = 12/16 = 0.C_16
(3) 0.125_10 = 1/8 = 2^-3 = 0.001_2
(4) 0.4_16 = 4/16 = 2/8 = 0.2_8
Остальные переводы выполняются аналогично. Получившаяся таблица во вложении.
Маловато баллов за такую задачу, ну да ладно...
var n:integer; nashel:boolean;
begin
n:=0;
nashel:=false;
while not nashel do if ((n mod 2 = 1)and(n mod 3 = 2)and(n mod 4 = 3)and(n mod 5 = 4)and(n mod 6 = 5)and(n mod 7 = 6)) then nashel:=true else n:=n+1;
writeln(n);
<span>end.
Ответ: 419</span>
подсистема 1 подсистема 2
школа компьютер
государство солнечная система
человек
Var a,c,f:integer;
d:string;
begin
f:=0;
writeln('введите строку');
readln(d);
a:=pos('е',d);
writeln('первый символ стоит на ',a,' позиции');
for c:=1 to length(d) do begin
if (d[c] = 'е') then f:=c;
end;
writeln('последний символ стоит на ',f,' позиции'); <span>
end.</span>