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
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов