Урок 17 (Решенная задача номер 2)

Primary tabs

Romakip's picture
Submitted by Romakip on Fri, 10/09/2020 - 17:36

Forums:

Урок 17 (Решенная задача номер 2)

2)Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.

var s: string;
    i, c: integer;
begin
 writeln('vvedite stroky');
 readln(s);
 writeln(s);
 c := 0;
 for i := 1 to length(s) do
   if (s[i] >= '5') and (s[i] <= '9') then
     c := c + 1;
 writeln(c);
end.
  • Log in to post comments
  • 2104 reads
vedro-compota's picture

vedro-compota

Sat, 10/10/2020 - 20:19

Используйте процедуру val()

_____________
матфак вгу и остальная классика =)

Romakip's picture

Romakip

Mon, 10/12/2020 - 17:09 

var s: string;
    i, v, c, h: integer;

begin
  writeln('vvedite stroky');
  readln(s);
  for i := 1 to length(s) do
    begin
      val(s[i], v, c);
      if (v >= 5) then
      Inc(h);
    end;
  writeln(h);
end.
vedro-compota's picture

vedro-compota

Sun, 10/18/2020 - 21:11

решение засчитано

_____________
матфак вгу и остальная классика =)