30 БАЛЛОВ ЛЮДИ ОЧЕНЬ СРОЧНОДана строчка, в которой нет российских букв.Написать
30 БАЛЛОВ ЛЮДИ ОЧЕНЬ Безотлагательно
Дана строчка, в которой нет российских букв.
Написать подпрограмму для поиска малого из всех трехзначных чисел в строке (под числом понимается последовательность цифр отделенная пробелами либо стоящая в конце или начале строчки, все числа целые, не отрицательные). Если в строке нет ни одного трехзначного числа, то подпрограмма обязана вернуть 0.
Использовать заголовок:
function CalcMin(s: string): integer;
1 ответ
Дарина
Function CalcMin(s: string): integer;
var min,p,n,c:integer; t:string;
begin
t:=s+' ';
min:=1000;
while tlt;gt;'' do
begin
while t[1]=' ' do delete(t,1,1);
p:=pos(' ',t);
if (p=4) then
begin
val(t[1]+t[2]+t[3],n,c);
if c=0 then if nlt;min then min:=n;
end;
delete(t,1,p);
end;
if min=1000 then CalcMin:=0 else CalcMin:=min;
end;
begin
writeln(CalcMin('123 jkl 105 45 ncmnn 1591'));
end.
Итог:
105
var min,p,n,c:integer; t:string;
begin
t:=s+' ';
min:=1000;
while tlt;gt;'' do
begin
while t[1]=' ' do delete(t,1,1);
p:=pos(' ',t);
if (p=4) then
begin
val(t[1]+t[2]+t[3],n,c);
if c=0 then if nlt;min then min:=n;
end;
delete(t,1,p);
end;
if min=1000 then CalcMin:=0 else CalcMin:=min;
end;
begin
writeln(CalcMin('123 jkl 105 45 ncmnn 1591'));
end.
Итог:
105
Марина
Несоответствие баллов за задачку и "30 БАЛЛОВ ЛЮДИ ОЧЕНЬ Безотлагательно" было замечено уже после ответа, к сожалению.
Данька
спасибо большое, удивительно, но я ставила в пт "баллы" 30:)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов