Ответы:
1) DHCP
2) DNS
3) ответ 2
4) APN
Var
a, b: integer;
begin
readln(a, b);
writeln('Сумма чисел: ', a+b);
writeln('Разница между числами: ', abs(a-b));
writeln('Квадрат разности: ', sqr(a-b));
writeln('Частное: ', a div b);
writeln('Остаток от деления первого на второе: ', a mod b);
end.
Для записи результата одного спортсмена требуется log(2)117 ≈ 7 бит (2^7 = 128). Объем информации о результатах 60 спортсменов = 60*7 = 420 бит.
1-а
2-б
3-в
4-г
5-д
6-б
Очень лёгкий тест! Надеюсь что помогла.)
var
a, b, c:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
write('НОД(', a, ', ', b, ', ', c, ') = ');
while (a <> 0) and (b <> 0) do
if a >= b then
a := a mod b
else
b := b mod a;
a := a + b;
while (c <> 0) and (a <> 0) do
if a >= c then
a := a mod c
else
c := c mod a;
writeln(a + c);
end.