Дана строка S длиной не более 255 символов

@PaiLaiDie · Регистрация: 04.12.2014

Author24 — интернет-сервис помощи студентам

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

Входные данные: ввести строку S с длиной не более 255 символов.

Выходные данные: вывести количество содержащихся в ней цифр.

@Portoble · 16.12.2014, 14:03

Pascal

uses crt;
var
s:string;
b:array[1..10] of char;
k,i,d:integer;
Begin
k:=0;
write('Введите строку: ');
 readln(s);
b[1]:='1';
b[2]:='2';
b[3]:='3';
b[4]:='4';
b[5]:='5';
b[6]:='6';
b[7]:='7';
b[8]:='8';
b[9]:='9';
b[10]:='0';
for i:=1 to length(S) do
 for d:=1 to 10 do
  if s[i]=b[d] then k:=k+1;
write(k);
end.

@Sergio Leone · 16.12.2014, 15:58

Portoble, О НЕТ!! Так НЕ НАДО писать!!!

сравните:

Pascal

var
  s : string;
  k,i : integer;
Begin
  write('Введите строку: ');
  readln(s);
  k:=0;
  for i:=1 to length(S) do
    if S[i] in ['0'..'9'] then Inc(k);
  writeLn(k);
end.

@Portoble · 16.12.2014, 16:09

Сообщение от Sergio Leone

if S[i] in ['0'..'9'] then Inc(k);

Sergio Leone, Объясните эту строку пожалуйста)

@Sergio Leone · 16.12.2014, 16:55

if текущий (i-й) символ строки является членом множества символов от '0' до '9', то увеличить счётчик k на единицу

@PaiLaiDie 1 / 1 / 0 Регистрация: 04.12.2014 Сообщений: 29
		1
	Дана строка S длиной не более 255 символов 16.12.2014, 12:11. Показов 3555. Ответов 4 Метки нет (Все метки) Дана строка S длиной не более 255 символов. Подсчитать количество содержащихся в ней цифр. Входные данные: ввести строку S с длиной не более 255 символов. Выходные данные: вывести количество содержащихся в ней цифр. 0

@Portoble 32 / 32 / 45 Регистрация: 01.11.2014 Сообщений: 155 Записей в блоге: 4
	16.12.2014, 16:09	4
	Сообщение от Sergio Leone if S[i] in ['0'..'9'] then Inc(k); Sergio Leone, Объясните эту строку пожалуйста) 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	16.12.2014, 16:55	5
	if текущий (i-й) символ строки является членом множества символов от '0' до '9', то увеличить счётчик k на единицу 0