Задача 3 урок 17
Primary tabs
Задача 3 урок 17
Пользователь вводит произвольную строку, посчитайте количество чисел в ней - тех, что больше 125. Например
var I, h, n, t, Code : Integer; S: string; a: array[1..100] of string; flag: boolean; begin n:=1; //порядковый номер массива а t:=0; //количество > 125 writeln('Vvedite stroku'); readln(S); for h:=1 to length(S) do //формируем массив чисел из найденых begin //цифр в введеной строке if (S[h]>='0')and(S[h]<='9') then //если цифра begin a[n]:=a[n]+S[h]; flag:=true; end; if (Not((S[h+1]>='0')and(S[h+1]<='9'))) AND flag then begin //еслиследущая после цифры - НЕ ЦИФРА inc(n); //изменяем индекс массива flag:=false //флаг что бы неизменять индекс лишний раз end; end; for h:=1 to high(a) do begin //если числа записали верно и они > 125 Val(a[h], I, Code); if (Code=0) AND (I >=125) then inc(t); //прибавляем счетную переменную end; writeln('V stroke ',t,' chisel > 125'); readln(); end.
- Log in to post comments
- 460 reads