Const
N = 5; {количество спортсменов}
var
K : array [1..N] of integer;
i, max : integer;
begin
for i := 1 to N do
begin
write('Результат спортсмена номер: ', i, ': ');
readln(K[i]);
end;
max := K[1];
for i := 2 to N do
if K[i] > max then
max := K[i];
writeln('Максимальный результат: ', max);
end.
Может быть использовано
10 цифр+ 26 строчных букв + 26 прописных + 6 спец символов = 68 символов всего.
Для кодирования 68ми символов достаточно диапазона чисел от 0 до 67
(2^6=64)<67<(2^7=128)
Таким образом необходимо минимум 7 бит на символ.
7*9=63 бита на один пароль.
63*100=6300 битов на 100 паролей.
6300/8 = 787,5 байт.
Округляем в большую сторону - ответ 788 байт
Отправить письмо.
Начало
Возми письмо,конверт и марку.
Наклей марку.
Напиши адрес на конверте.
Сложи письмо.
Положи письмо в конверт.
Заклей конверт.
Выйди из дома. Брось конверт в почтовый ящик.
<span>Конец</span>
Var
k:longint;
d,n:integer;
begin
Write('Введите натуральное число (1-2147483647): ');
Read(k);
n:=0;
while k>0 do begin
d:=k mod 10;
k:=k div 10;
if (d mod 2)<>0 then Inc(n)
end;
Writeln('Количество нечетных цифр в числе равно ',n)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число (1-2147483647): 35632105
Количество нечетных цифр в числе равно 5