Ответ:Пусть дед будет старше внука в 3раза через х лет, тогда деду будет 64+х, а внуку 16+х. Составляем уравнение
\frac{x+64}{x+16} =3
х+64=3(х+16)
х+64=3х+48
2х=16
х=8
ответ через 8 лет
Объяснение:
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
var c, w: integer;
procedure check;
begin
var (a, b) := (Random(0, 20), Random(0, 20));
Print($'{a}*{b}=');
if a * b = ReadInteger then begin inc(c); Println('Правильно') end
else begin inc(w); Println('Неправильно') end;
end;
procedure res;
begin
Println($'Задано вопросов {c+w}');
Println($'Правильных {c}({(c*100)/(c+w):f1}%)');
Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');
end;
begin
var start := true;
while start do
begin
Println('Проверим?(0/1)');
if ReadInteger = 0 then
begin start := false; res; end
else check;
end;
end.
Пример в приложении.
var s1,s2,c1,c2:string;
i:integer;
Begin
read(s1,c1,c2);
for i:= 1 to length(s1) do begin
s2:=s2 + s1[i];
if s1[i]=c1 then s2:=s2+c2;
end;
writeln(s2);
End.
Var a,b:integer;
x:real;
begin
readln(a,b);
x:=a/b;
writeln(x);
<span>end.</span>
1) 16х=128 кб - переведём кб в бит 128 кб = 128 *1024 * 8 = <span>1048576</span>
дальше проще 16х=<span>1048576</span>
х=<span>1048576</span> : 16
х=<span>65536</span>
2) 8х=32 кб - так же переводим в биты 32кб=32*1024*8=<span>262144</span> бит
8х=262144
х=262144 : 8
х=<span>32768</span>
