Решаем задачи Абрамян на Паскале. String13

String13. Дана строка. Подсчитать количество содержащихся в ней цифр.

Решение:

program String13;
var
  i,Num:integer;
  S:string;

begin
 Write('S:');
 Readln (S);

 Num:=0;
 for i:=1 to Length(S) do
  if (ord(S[i]) in  [48..57]) then inc(Num);

 Writeln(Num);
end.

program String13;

var

i,Num:integer;

S:string;

begin

Write('S:');

Readln (S);

Num:=0;

for i:=1 to Length(S) do

if (ord(S[i]) in [48..57]) then inc(Num);

Writeln(Num);

end.

Другие задачи из раздела String можно посмотреть здесь.

Комментарии 1

Решение на Python:

def DigitCounter(msg):
    input_string = input(msg)
    digit_counter = 0
    for char_counter in range(0, len(input_string)):
       if input_string[char_counter].isnumeric() is True:
           digit_counter += 1
    return digit_counter

number_of_digits = DigitCounter("Введите строку:")
print(number_of_digits)

def DigitCounter(msg):

input_string = input(msg)

digit_counter = 0

for char_counter in range(0, len(input_string)):

if input_string[char_counter].isnumeric() is True:

digit_counter += 1

return digit_counter

number_of_digits = DigitCounter("Введите строку:")

print(number_of_digits)

Ответить

Решаем задачи Абрамян на Паскале. String13

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ