Var A,Min,N:integer;
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
Begin
Read(A);
if (A mod 7 = 0)and(A < Min) then Min:=A;
End;
Write(Min)
End.
Using System;
public class Test
{
public static void Main()
{
int n, a, b;
Console.Write("Введите номер задачи:\n");
Console.Write("1 - вычисление максимального числа;\n");
Console.Write("2 - вычисление минимального числа;\n");
Console.Write("3 - вычисление суммы чисел.\n");
Console.Write("4 - вычисление произведения чисел.\n");
n = int.Parse(Console.ReadLine());
Console.Write("Введите два числа:\n");
a = int.Parse(Console.ReadLine());
b = int.Parse(Console.ReadLine());
switch (n) {
case 1 :
if (a>b) Console.Write("max = {0}",a);
else Console.Write("max = {0}",b);
break;
case 2 :
if (a<b) Console.Write("min = {0}",a);
else Console.Write("min = {0}",b);
break;
case 3:
Console.Write("S = {0}",a+b);
break;
case 4:
Console.Write("П = {0}",a*b);
break;
}
}
}
Пример:
<span>Введите номер задачи:
1 - вычисление максимального числа;
2 - вычисление минимального числа;
3 - вычисление суммы чисел.
4 - вычисление произведения чисел.
4
Введите два числа:
5
8
П = 40</span>
Сообщение о том, что это 5 стеллаж несет в себе 4 бита, плюс 3 полка - 3 бита, итого 7 :) Стеллажей 16. Найдем количество информации о том, что предмет находится на одном из них. Воспользуемся формулой Хартли: 2 в степени i = N, где i это количество информации, N - число событий, т. е. в нашем случае 16. Очевидно, что 2 в четвертой степени дает 16, значит сообщение весит 4 бита) Аналогично с полкой, только вместо 16 ставим 8.
Вот тут написаны все свойства информации .
Var n,n1,m:integer;
begin
write('n = ');
readln(n);
n1:=abs(n);
m:=(n1 mod 10)*100+(n1 div 10 mod 10)*10+(n1 div 100);
if n<0 then m:=-m;
writeln('m = ',m);
end.
Пример:
n = -123
m = -321