Артур Дент покинул свою каюту с целью раздобыть чашку чая. В это предприятие он пустился со слабой надеждой на успех, ибо знал, что единственным источником горячих напитков на борту был нутримат – погрязший в невежестве автоматический синтезатор пищи. Этот агрегат не уставал хвастаться своей приготовить любой напиток с учетом вкусов и особенностей обмена веществ клиента, но всякий раз подсовывал Артуру пластмассовую чашку с жидкостью, которая почти ничем не отличалась от абсолютной противоположности чая. Напишите программу, которая ищет противоположности.
Формат ввода
Вводятся строки чисел, записанных через #, пока не появится число 999 в строке.
Формат вывода
Из каждой строки через пробел без повторений вывести числа, в которых нет цифр из первого в строке числа. Выводить в возрастающем порядке, в каждой второй, начиная с первой, в конце вывести сумму выбранных в этой строке чисел.
Если чисел не нашлось, вывести пустую строку, сумму не выводить.
Аналогично с паролем, он занимает 15 * 4 бита = 60 бит памяти
Для хранения результатов выбора пола достаточно одного бита ( всего два возможных варианта() - ж или м,).
Итого одна учетная запись занимает: 100 + 60 +1 = 161 бит памяти.
Но в условии сказано, что она кодируется минимально возможным целым! кол-вом байт, значит: 161/8 = 20,125 байт, округляем в большую сторону - 21 байт.
Всего 30 записей: 21 * 30 = 630 байт.
Значит верный ответ под номером 3)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.