На рисунке цифра 2, подробно во вложенном файле
Var
n:integer;
begin
readln(n);
if n > 10 then writeln(n, ' > ', 10);
if n < 10 then writeln(n, ' < ', 10);
if n = 10 then writeln(n, ' = ', 10);
<span>end.</span>
Исходя из текста условия можно предложить что имеется ввиду преобразование текста из одной кодировки в другую. Если предположение верно, то задача описывается следующим уравнением:
16*n - 800 = 8*n
n=100
где n - число символов
Const n=10;
var
i: integer;
var a: array[1..n] of integer;
begin
for i:=1 to n do begin
a[i]:=random(1,50);
write (a[i]:3);
end;
writeln;
writeln ('Элементы, кратные 5:');
for i:=1 to n do begin
if a[i] mod 5 =0
then write (a[i]:3);
end;
end.
===================================
30 45 2 5 26 47 30 7 4 9
Элементы, кратные 5:
30 45 5 30
===================================