Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти окружность, внутри которой лежат вершины наибольшего количества треугольников https://www.cyberforum.ru/ turbo-pascal/ thread861217.html
Даны n треугольников на плоскости, заданных координатами своих вершин, и m окружностей, заданных координатами своих центров и радиусами. Найти окружность, внутри которой лежат вершины наибольшего...
Среди всех нецелых элементов массива найти наименьший и определить его номер в массиве Turbo Pascal
В программе задан массив действительных чисел. Среди всех нецелых элементов этого массива найти наименьший и определить его номер в массиве. Если таких элементов несколько, указать тот, который в...
Turbo Pascal Корректность сходимости в методе Зейделя и простых итераций https://www.cyberforum.ru/ turbo-pascal/ thread861155.html
Здраствуйте! Просьба оценить данную программу, и обратить внимание на сходимость простых итераций и зейделя, а именно интересует число шагов между этими методами решения СЛАУ. Для определения...
Turbo Pascal Найти количество всех двузначных чисел, которые равны разности между суммой кубов и суммой квадратов цифр самого числа Здравствуйте помогите с задачей. Найти количество всех двузначных чисел, которые равны разности между суммой квадратов цифр самого числа. https://www.cyberforum.ru/ turbo-pascal/ thread861136.html
Turbo Pascal Определить принадлежит ли точка отрезку
Подскажите как записать функцию, для определения принадлежности точки прямой, вот функция сырая, не всегда правильно считает function Q:integer; begin Q:=0; for i:=0 to c-2 do begin...
Turbo Pascal Вывод первых 20 цифр результата суммы ста, 50-значных чисел в общем реализовать на паскале вывод первых 20 цифр результата суммы ста, 50-значных чисел: 37107287533902102798797998220837590246510135740250 46376937677490009712648124896970078050417018260538... https://www.cyberforum.ru/ turbo-pascal/ thread861116.html
Turbo Pascal Определить первоначальную сумму заработной платы Работнику выдана заработная плата с учетом того, что из нее удержано 13% подоходного налога. Определить первоначальную сумму заработной платы. https://www.cyberforum.ru/ turbo-pascal/ thread861096.html Составите программу, позволяющую определить, учатся ли два школьника Turbo Pascal
Составите программу, позволяющую определить, учатся ли два школьника в параллельных классах. Эля11, в очередной раз обращаю ваше внимание на правила форума: дублирование тем запрещено. Поскольку...
Turbo Pascal Составьте программу подсчета числа различных гласных букв в словах Составьте программу подсчета числа различных гласных букв в словах X, Y, Z. https://www.cyberforum.ru/ turbo-pascal/ thread861014.html Turbo Pascal Составьте программу нахождения числа, встречающегося во всех строках двухмерного массива Составьте программу нахождения числа, встречающегося во всех строках двухмерного массива A(N,N). Если такого нет числа, программа должна выдавать сообщение "нет". https://www.cyberforum.ru/ turbo-pascal/ thread861012.html
Вывести на экран монитора систему меню, расположенную горизонтально или вертикально Turbo Pascal
задание: 1. Вывести на экран монитора систему меню, расположенную горизонтально или вертикально. Перед выводом системы меню необходимо вывести заставку. 2. В любой момент времени должен быть...
Turbo Pascal ошибки https://www.cyberforum.ru/ turbo-pascal/ thread860923.html
Не работает поиск, удаление поддерева, обход снизу вверх. Uses Crt,Derevo2; var ok:boolean; Mode:integer; n,k,top:NodePtr; r,a:byte; begin ClrScr;
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,198
Записей в блоге: 1
11.05.2013, 11:25 0

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

11.05.2013, 11:25. Показов 2247. Ответов 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.


Вернуться к обсуждению:
Строка: посчитать количество цифр в числе и сколько раз в число входит цифра 5. Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.05.2013, 11:25
Готовые ответы и решения:

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

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

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

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

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2013, 11:25

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

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

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

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

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