Подсчитать количество цифр, входящих в строку

19.05.2008, 20:56. **Показов** 26918. **Ответов** 3

Дана строка, содержащая 30 символов. Подсчитать количество цифр, входящих в данную строку.

Vovan-VE · 19.05.2008, 21:19

Pascal

var s:string;  i,n:Integer;
begin
    readln(s);
    n := 0;
    for i:=1 to Length(s) do begin
        if (s[i]>='0')and(s[i]<='9') then inc(n);
    end;
    writeln('This string contains ',n,' digits.');
end.

@grev_4 · 21.12.2010, 21:47

А возможно сделать так, чтобы, кроме количества цифр, программа подсчитала и их сумму?

@looka_s · 19.12.2020, 22:29

спустя 10 лет отвечаю:
можно

Мартышонок))
		1
	Подсчитать количество цифр, входящих в строку 19.05.2008, 20:56. Показов 26918. Ответов 3 Метки нет (Все метки) Дана строка, содержащая 30 символов. Подсчитать количество цифр, входящих в данную строку.

@grev_4 1 / 1 / 1 Регистрация: 09.12.2010 Сообщений: 30
	21.12.2010, 21:47	3
	А возможно сделать так, чтобы, кроме количества цифр, программа подсчитала и их сумму? 0

@looka_s 0 / 0 / 0 Регистрация: 19.12.2020 Сообщений: 2
	19.12.2020, 22:29	4
	спустя 10 лет отвечаю: можно 0

Опции темы