Var
A,Min:integer;
N:byte;
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
Begin
Read(A);
if (A>0)and(A mod 5 = 0)and(A < Min) then Min:=A;
End;
Write(Min)
End.
Спортивный инвентарь, советские тренажеры - выбери, как больше нравится
Буду исходить из диапазона 95 возможных значений. Итак: 1) найдём минимальное количество бит для записи измерения. 2^6<95<2^7, значит минимально необходимо 7 бит. 2) Для записи 112 измерений понадобится 7*112=784 бит - информационный объём результатов измерений.
Ответ:
1)
Begin
Read(a);
S:=a mod 10+a div 10;
Writeln(s);
Writeln(a-s);
End.
2)
function Prost(a:longint):boolean;
var i:longint;
f:boolean;
begin
if a<2 then f:=false{первое простое=2}
else
begin
f:=true;{считаем что простое}
i:=2;
while (i*i<=a) and f do{пока счетчик меньше корня из числа и нет делителей}
if a mod i=0 then f:=false{если делитель, не постое}
else i:=i+1;{иначе дальше}
end;
Prost:=f;{результат true или false}
end;
Begin
Read(a,b);
For i:=a to b do
If Prost(i) then
Writeln(i);
End.
3)
Begin
Sum:=0;
For i:=1 to n do
If a[n] mod 3 = 0 then
Sum:=sum + a[n];
End.