Ответ:Пусть дед будет старше внука в 3раза через х лет, тогда деду будет 64+х, а внуку 16+х. Составляем уравнение
\frac{x+64}{x+16} =3
х+64=3(х+16)
х+64=3х+48
2х=16
х=8
ответ через 8 лет
Объяснение:
Код прекреплен к ответу, всё прокоментрировано. Так же продублирован в коментариях. Если есть вопросы, велком в те же коментарии.
(Формат файла должен быть *.py но на этом сайте он его не подгружает, по этому формат изменен на *.py.txt просто надо будет убрать '.txt')
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" (:
Кодирование информации - это процесс шифрования информации. Информацию кодируют для того , чтобы в дальнейшем с нею было удобнее работать , то есть сохранять , передавать и.т.д Информацию шифруют знаками , знаки-это элементы , с помощью которых можно кодировать информацию)
1) 123 в двоичной = <span>1111011
123 в восьмеричной = 173
123 в шестнадцатеричной = 7В
456 в двоичной = </span>111001000<span>
456 в восьмеричной = 710
456 в шестнадцатеричной = 1С8
2) 100011 в десятеричной = 35
</span>100011 в восьмеричной = 43
100011 в шестнадцатеричной = 23
101001011 в десятеричной = 331
101001011 в восьмеричной = 513
101001011 в шестнадцатеричной = 14В
1110010001 в десятеричной = 913
1110010001 в восьмеричной = 1621
1110010001 в шестнадцатеричной 391
Const n=20;
var a:array[1..n]of integer;
i,b,k,c,f,g,h:integer;
begin
for i:=1 to n do a[i]:=Random(70)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do begin
if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i]=50) then begin
b:=i;
for b:=i to (n-1) do
a[i]:=a[i+1];
end; end;
for i:=1 to n do
write(a[i],' ');
write('введите к ');
read(k);
for i:=1 to n do begin
if a[i] mod i = 0 then begin
c:=i;
for i:=n downto c+1 do begin
a[i]:=a[i-1];
a[c+1]:=k;
end;end;end;
for i:=1 to n do
write(a[i],' ');
writeln;
f:=0; g:=0;
for i:=n downto 1 do begin
if (a[i]>0) then f:=i;
end;
if a[f]=0 then write('нет положительных ');
for i:=n downto 1 do begin
if (a[i]<0) then g:=i;
end;
if (a[g]=0) then write('нет отрицательных ');
if (a[f]<>0) and (a[g]<>0) then begin
h:=a[f]; a[f]:=a[g]; a[g]:=h; end;
for i:=1 to n do
write(a[i],' ');
writeln;
<span>end.</span>