Задача 2 Урок 17
Primary tabs
Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.
var N,Code,i,count: integer; s: string; begin writeln('vvedi stoky'); readln(s); for i := 1 to high(s) do begin Val(s[i], N, Code); if ((N >= 5) and (code = 0)) then count := count + 1; end; writeln(count); readln(); end.
- Log in to post comments
- 565 reads
vedro-compota
Sun, 10/03/2021 - 12:35
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)