Ответ:
program HelloWorld;
var x,y : integer;
begin
x:=15;
y:=12;
while (x<>y) do
begin
if x > y then x:=x-y
else y:=y-x;
end;
if(x=y)then writeln(x);
end.
я не понял откуда появилась переменная V , так что счел это за опечатку.
Объяснение:
т.к. основание исходной системы счисления является стеменью 2 то значит можно просто представить каждую цифру в двоичной системе и получить двоичное представление числа
A = 1010
F = 1111
т.к. каждая цифра числа в восьмиричной системе счисления кодируется 3 битами то можно получить представление числа в восьмиричной системе счисления просто последовательно перобразовав каждые 3 разряда в цифру в восьмиричной системе счисления
111 = 7
101 = 5
010 = 2
для преобразования в десятичную систему счисления нужно каждую цифру числа пребразованную в десятичную систему счисления умножить на основание системы счисления в спени номера разряда и все результаты просуммировать
отсчет разрдов идет справа налево от 0
A = 10
F = 15
Program z9; Var s1,s2,v1,v2,s:integer; t1,t2,v,t:real;Begin write('S1 = '); readln(s1); write('S2 = '); readln(s2); write('V1 = '); readln(v1); write('V2 = '); readln(v2); s:=s1+s2; t1:=s1/v1; t2:=s2/v2; t:=t1+t2; v:=s/t; writeln('Средняя скорость равна = ', v);End.
Скорость передачи
2500 / 40
время передачи нового файла
2750 / (2500/40) = 1,1*40 = 44 сек
Ответ 44 сек
Вроде это чпу !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!