Var a,b,c,x :integer;
function NOD(a,b:integer):integer;
begin
while a<>b do
if a>b then
a:=a-b
else b:=b-a;
Result:=a;
end;
begin
write('Введите a,b,c: ');
readln(a,b,c);
x:=NOD(NOD(a,b),c);
writeln('НОД=',x)
<span>end.</span>
10101+111=10212
10101-111=9990
10101*111=1121211
10101:111=91
100мбит = 12500килобайт.
0.1 / 125 = 0.00008
Ваш ответ: 0,00008.