Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Генерация перестановок https://www.cyberforum.ru/ pascal/ thread50013.html
Привет, я написал прогу для вывода в файл всех перестановок ряда чисел 1,2, ... ,n. Число n можно изменять в тексте программы(переменная n). Проверял, вроде работает, правда из-за наличия факториала для сильно больших n не прокатит, даже если использовать тип longint. uses crt; type arr=arrayof integer; var z,k,l,i,n,m,t:integer; a,b:arr; f:text;
Pascal Разность между временем (record)
очень нужна помощь.) Запись состоит из трех полей: часы, минуты, секунды. Ввести два момента времени. определить какой из них раньше и найти разность между ними. Программа должна быть с использованием записи (record)
Pascal исправить ошибку Напечатать текст, за которым следует точка. В алфавитном порядке напечатать все строчные русские гласные буквы (а. е, и, о, у, ы, э, ю, я), входящие в этот текст. uses crt; const gl=; var s:string;{вводимый текст-строка} c:char;{символ} i,j:byte;{счетчики циклов} begin clrscr; writeln('Введите текст, окончание ввода точка:'); https://www.cyberforum.ru/ pascal/ thread49968.html Pascal Отсортировать строки элементов массива по сумме элементов каждой строки https://www.cyberforum.ru/ pascal/ thread49949.html
Дан двумерный массив размерностью mxn, состоящий из целочисленных элементов. Отсортировать строки элементов этого массива по сумме элементов каждой строки. Сортировать по возрастанию.
Цикличный алгоритм Pascal
Дано натуральное число n и действительные числа a1, a2, …, an. Посчитать P=(1+a1^n)(1+a2^n)...(1+an^n). Ума не приложу как делать. Заранее спасибо.
Pascal Функция в паскале помогите пожалуйсто решить задачу: "Определить, есть ли среди первых N цифр заданного целого числа цифра K" реализовать программу с подпрограммой функцией,строки использовать нельзя..все числа должны быть типа integer...заранее благодарю https://www.cyberforum.ru/ pascal/ thread49914.html
Pascal Определенный интеграл https://www.cyberforum.ru/ pascal/ thread49907.html
Подскажите, пожалуйста, как в паскале правильно записать определенный интеграл (Интеграл a=4, b=12) := dx / ( sqrt(x)*(x+4) ) для функции: { Интегрируемая функция } function f(x:real):real; begin f:=1/( sqrt(x)*(x+4) ); end; Правильно ли я её записал ?
график функции y=x^2+3 Pascal
Привет всем. Возникли трудности... Нужно сделать график функции y=x^2+3 желательно код по проще :) Спасибо всем заранее
Pascal Поиск подматрицы в матрице Задача: Задана матрица состоящая из 0 и 1,найти наибольшую подматрицу состоящую только из одних едениц... Т.е. указать номер(i,j) верхнего левого и нижнего правого элементов... https://www.cyberforum.ru/ pascal/ thread49844.html Pascal Задачи на 4-ёх символьные комбинации. https://www.cyberforum.ru/ pascal/ thread49803.html
Помогите, пожалуйста, решить 2 задачки на Pascal, либо написать алгоритм решения: 1) Вывести на экран все четырёхбуквенные комбинации с различным регистром. Пример: Avio;AMoT;vOod;InmQ; 2) Вывести на экран все четырёхсимвольные комбинации, которые состоят из букв различного регистра и цифр от 000 до 999. Каждая комбинация должна содержать хотя бы одну букву. Пример: Am1B;Bi25;3a4M;18D9;...
Pascal Найти наименьшее натуральное число, которое можно представить суммой трех квадратов натуральных чисел не единственным образом.
Найти наименьшее натуральное число, которое можно представить суммой трех квадратов натуральных чисел не единственным образом.
Pascal Глобальные переменные https://www.cyberforum.ru/ pascal/ thread49741.html
помогите переделать программу надо убрать глобальные переменные у самого не получается=(( program lab11; uses crt; const max_array_size=100; type mas=array of integer; var a:mas; b:mas; mas_dimension,i:integer; Summ:real;
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7769 / 4598 / 2823
Регистрация: 22.11.2013
Сообщений: 13,076
Записей в блоге: 1
28.06.2019, 12:06 0

Сколько раз заданная цифра встречается в числе N - Pascal - Ответ 13687512

28.06.2019, 12:06. Показов 12310. Ответов 19
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
var n: Longint; d, k: Integer;
begin
  Write('Число и цифра: '); ReadLn(n,d); n:=Abs(n);
  repeat
    if n mod 10=d then Inc(k); { Inc(k,Ord(n mod 10=d)); }
    n:=n div 10;
  until n=0;
  WriteLn('Цифра ',d,' встречается ',k,' раз(а)');
end.


Вернуться к обсуждению:
Сколько раз заданная цифра встречается в числе N Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.06.2019, 12:06
Готовые ответы и решения:

Сколько раз в заданном натуральном числе n встречается заданная цифра k?
Определить, сколько раз в заданном натуральном числе n встречается заданная цифра k....

Сколько раз заданная цифра встречается в заданном целом числе?
Нужно вот задачки решить:1.найти сумму цифр числа больших пяти 2.сколько раз заданная цифра...

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

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

19
28.06.2019, 12:06
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.06.2019, 12:06
Помогаю со студенческими работами здесь

Подсчитать, сколько раз в числе встречается каждая цифра от 0 до 9
Вводится любое число. Нужно подсчитать сколько раз в нем встречается каждая цифра от 0 до 9? В...

Сколько раз в числе встречается цифра, равная старшей?
Доброго времени суток уважаемые. Помогите пожалуйста с задачкой, не могу разобраться. В общем...

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

Определить, сколько раз в заданном натуральном числе M встречается наибольшая цифра
составьте программу,определяющую сколько раз в заданном натуральном числе M встречается наибольшая...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru