как можно быстрее
k>1?
Результат F(k)
ФИО
0
( a
g
Program v2_21;
VAR k:Integer;
Procedure fin:Integer);
Begin
Write('');
IF n>1 Then
Write('*');
Write('*');
ГEnd; ;
Begin
For k:=0 TO 2 DO
F(k);
End.
--
L
T
И.
И u
КЕ
0
B
А A
р
1.
Конечный
результат
на экране
M
Программа v2 22;
Процедура Ф;
Начало
Пометить;
Конец;
Начало
ПОКА СвобВпереди выполнить
Начало
Ф; РоботВперед; РоботВперед,
РоботНалево;
Конец.​

Каждый символ в кои-8 имеет объем информации 1 байт. всего текста 60*30 = 1800 байт на каждой странице. растровое изображение передает не более 8 = 2^3 цветов, значит, на кодировку цвета используется 3 бита. размер каждого рисунка 120*240*3 = 86400 бит = 10800 байт. а рисунков 2 на каждой странице. таким образом, каждая страница содержит 2*10800 + 1800 = 23400 байт. модем со скоростью передачи 28800 бит в сек передал документ за 5 сек. значит, он передал 28800*5 = 144000 бит = 18000 байт. но это меньше, чем находится на одной странице. вывод: у вас ошибка в условии.

Const   n = 50; // количество чиселvar   k: array [1..n] of integer;   i, j, n1, n2, minr, a, b: integer; begin   writeln(n, ' ', ': d');   a : = random(1000);   b : = random(1000);   minr : = 10000;   for i : = 1 to n do       k[i] : = a + random(b);   for i : = 1 to n do       for j : = 1 to n do           if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then           begin               minr : = abs(k[i] - k[j]);               n1 : = i;               n2 : = j;           end;   writeln(n1, ' ', n2); end.