Var
SurName : Array [1..30] of String;
Mark : Array [1..30] of Real;
Cand : Array [1..30] of String;
NPupil, K : Integer;
BEGIN
Write('Сколько всего учеников ? ');
ReadLn(NPupil);
WriteLn('Введите фамилии и оценки учеников :');
For var i := 1 to NPupil do
begin
Write(i, '. Фамилия - ');
ReadLn(SurName[i]);
Write(' Оценка - ');
ReadLn(Mark[i]);
end; WriteLn;
K:=0;
For var i := 1 to NPupil do
If Mark[i]=2 then
begin
K:=K+1;
Cand[K] := SurName[i]
end;
If K=0 then WriteLn('В КЛАССЕ НЕТ ДВОЕЧНИКОВ.')
else
begin
WriteLn('ДВОЕЧНИКИ :');
For var i := 1 to K do WriteLn( i, '. ' , Cand[i]);
end;
END.
это ТЕГИ Они задают форматирование
текста.
информационные: физическая карта, схема метро
физические: глобус, манекен, муляж яблока
Количество различных символов, которые используются в пароле =
10+26+26+6 = 68
Для кодирования одного символа необходимо использовать log(2)68 ≈ 7 бит (округляем в большую сторону).
Для хранения пароля необходимо 9*7 = 63 бита ≈ 8 байт
Память, используемая для хранения сведений об одном пользователе = 500/20 = 25 байт
Получаем, что для хранения дополнительных сведений используется 25-8 = 17 байт
Ответом является число 1, ведь самое маленькое кол-во человек это 1