Задача 3 Урок 17
Primary tabs
Пользователь вводит произвольную строку, посчитайте количество чисел в ней - тех, что больше 125. Например, в строке:
123ret34#2145esrt5такое число только одно и это:
2145(сначала выделите эти числа из строки и запишите их в массив (of integer), а затем уже посчитайте число тех, что больше 125)
var i,k,N, Code,count: integer; s: string; f: boolean; xArr: array[1..20] of string; begin writeln('vvedi stoky'); readln(s); k:=1; for i := 1 to length(s) do begin if((s[i] >= '0') and (s[i] <= '9')) then f:=true else if(f) then begin k := k + 1; f := false; end; if (f) then xArr[k] := xArr[k] + s[i]; end; for i := low(xArr) to high(xArr) do begin Val(xArr[i], N, Code); if ((N >= 125) and (code = 0)) then count := count + 1; end; writeln(count); readln(); end.
- Log in to post comments
- 2077 reads
vedro-compota
Sun, 10/03/2021 - 12:36
Permalink
разбить на подпрограммы
разбить на подпрограммы
_____________
матфак вгу и остальная классика =)
jl8qy9kd_pro
Thu, 10/07/2021 - 15:31
Permalink
RE
vedro-compota
Sun, 10/10/2021 - 12:40
Permalink
сразу получать массив чисел
сразу получать массив чисел
_____________
матфак вгу и остальная классика =)
jl8qy9kd_pro
Sun, 10/17/2021 - 11:24
Permalink
RE
vedro-compota
Sun, 10/17/2021 - 12:39
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)