Напишите программу, которая находит наименьшую цифру введённого числа n

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018Внимание! Если программа не работает, обновите версию!

begin

 ReadInteger.ToString.Min.Println

end.

Решение на C#. Код и результат выполнения на скриншотах.

1)4096 байт = 4096/1024 = 4 кб
2)Один дюйм — 2,54 сантиметра  - это 27 символов => 27*2 = 54 байт
3)12 кб = 12 * 1024 байт = 12 288 байт = 12 288 * 8 бит = 98 304 бит
4)N=2^i
N = 32 символа
32=2^i
i = 5 бит требуется для кодирования 1 символа
24*5 бит = 120 бит
5)Кто любит трудиться – тому без дела не сидится - 46 символов
Не написано сколько символов в алфавите => посчитаем сколько различных символов используется в данном предложении = 19 символов
N = 2^i
N=19
19 = 2^i
i=5 бит - 1 символ
46*5 бит = 230 бит

Program primer;
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i  :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
s:=s+a[i];
writeln('s=',s);
readln;
end.

program primer2;
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i  :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
if a[i] mod 2=0 then s:=s+a[i];
writeln('s=',s);
readln;
end.

program primer2;
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i  :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
if i mod 2 =0 then s:=s+a[i];
writeln('s=',s);
readln;
end.