Дан текст, состоящий из букв и цифр. Найти наименьшую цифру.
10-11 класс
|
var
a:string;
i,n,j:integer;
buf:char;
begin
readln(a);
n:=length(a);
for i:=n downto 1 do
if (a[i]<'1')or(a[i]>'9') then
delete(a,i,1); {удалила символы кроме цифр}
n:=length(a);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j]then {сортирую по возрастанию, на первом месте самая
begin маленькая}
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
writeln(a[1]); {вывожу первую цифру}
end.
Другие вопросы из категории
объем следующего высказывания Жан-Жака Руссо: Тысячи путей ведут к заблуждению, к истине – только один. 1) 92 бита 2) 220 бит 3) 456 бит 4) 512 бит 2) Считая, что каждый символ кодируется 16-ю битами, оцените информационный объем следующей пушкинской фразы в кодировке Unicode: Привычка свыше нам дана: Замена счастию она. 1) 44 бита 2) 704 бита 3) 44 байта 4) 704 байта 3) Для хранения растрового изображения размером 64 на 64 пикселя отвели 512 байтов памяти. Каково максимально возможное число цветов в палитре изображения? 1) 16 2) 2 3) 256 4) 1024 4) Разрешение экрана монитора – 1024 х 768 точек, глубина цвета – 16 бит. Каков необходимый объем видеопамяти для данного графического режима? 1) 6 Мбайт 2) 256 байт 3) 4 Кбайта 4) 1,5 Мбайт 5) Производится одноканальная (моно) звукозапись с частотой дискретизации 48 кГц и глубиной кодирования 16 бит. Запись длится 2 минуты, ее результаты записываются в файл, сжатие данных не производится. Какое из приведенных ниже чисел наиболее близко к размеру полученного файла, выраженному в мегабайтах? 1) 11 2) 12 3) 13 4) 20
c решением
Читайте также
декодировать полученную двоичную последовательность. Вот этот код: А – 011, Б – 000, В – 11, Г – 001, Д – 10. Можно ли сократить для одной из букв длину кодового слова так, чтобы код по-прежнему можно было декодировать однозначно? Коды остальных букв меняться не должны. Выберите правильный вариант ответа.
декодировать полученную двоичную последовательность. Вот этот код: А-0, Б-100, В-1010, Г-111, Д-110. Требуется сократить для одной из букв длину кодового слова так, чтобы код по-прежнему можно было декодировать однозначно?Коды остальных букв меняться не должны,каким из указаных способов можно это сделать?
1)Для букв В-101
2)В-010
3)неизвестно
4)Б-10
Битах? В ответе укажите число
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.