Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
1 / 1 / 0
Регистрация: 28.01.2013
Сообщений: 102
1

Строка: посчитать количество цифр в числе и сколько раз в число входит цифра 5.

11.05.2013, 06:06. Показов 2219. Ответов 2
Метки нет (Все метки)

Дана строка символов, содержащая не более 255 цифр. Необходимо посчитать количество цифр в числе и сколько раз в число входит цифра 5.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.05.2013, 06:06
Ответы с готовыми решениями:

Дано целое число N .Входит ли цифра 3 в его запись, если входит, то сколько раз
Дано целое число N.Входит ли цифра 3 в его запись если входит , то сколько раз?

Сколько раз в числе встречается цифра 2
Дано натуральное число.Сколько раз в этом числе встречается цифра 2?

Изменяя число i от 1 до n (без пробелов) получить число. Посчитать в нем количество каждых цифр. Посчитать общее число цифр
Дано число n меньше или равно 30 000. Изменяя число i от 1 до n будем записывать получившееся число...

Выяснить, сколько раз входит в состав натурального числа цифра 3
Цикл с параметром Выяснить, сколько раз входит в состав натурального числа цифра 3

2
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,148
Записей в блоге: 1
11.05.2013, 11:25 2
Лучший ответ Сообщение было отмечено ttt_xx как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var s:string;
    i,k1,k2:byte;
Begin
    write('Введите число: ');readln(s);
    For i:=1 to Length(s) do
     if s[i] in ['0'..'9'] then
     Begin
       inc(k1);
       if s[i]='5' then inc(k2);
     End;
    writeln('Цифр в числе = ',k1);
    writeln('5 = ',k2);
    readln;
End.
0
43 / 43 / 43
Регистрация: 07.05.2013
Сообщений: 109
11.05.2013, 11:33 3
Или с проверкой ввода только цифр:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
var
  s:string;
  i,l,k:integer;
  ch:char;
 
begin
  write('Число: ');
 
  repeat
    ch:=readkey;
    if ch in [#48..#57] then
    begin
      s:=s+ch;
      write(ch);
    end;
  until ch=#13;
 
  l:=length(s);
  k:=0;
  for i:=1 to l do
    if s[i]='5' then inc(k);
 
    writeln;
  writeln('Цифр ',l,'. Цифр ''5'' ',k, ' шт.');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2013, 11:33

Сколько раз заданная цифра встречается в числе N
Вот задание: сколько раз заданная цифра встречается в числе N? Срочно нужно!Ооочень!

Сколько раз в числе встречается максимальная цифра
1.Дано натуральное число n.Сколько раз в нём встречается максимальная цифра? 2.Найти 10 первых...

Сколько раз встречается в данном числе цифра 8
Сколько раз встречается в данном числе цифра 8?

Определить, сколько раз в числе встречается цифра а
Дано натуральное число. Определить: •сколько раз в нем встречается цифра а; •сколько раз в нем...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.