Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Срочно написать программу! https://www.cyberforum.ru/ pascal/ thread174236.html
Помогите пожалуйста написать программу,которая бы содержала: 1.ввод с клавиатуры значений указанных типов в переменные программы. 2.составить выражения с использование переменных...
Pascal Даны два целых числа с одинаковым количеством разрядов. Найти их поразрядную сумму
Даны два целых числа с одинаковым количеством разрядов. Найти их поразрядную сумму. Например, поразрядной суммой чисел 345 и 597 будет число 832.
Простые и сложные разветвления Pascal
1. Определить, делится ли на целое число целое число без остатка. Если делится, то разделить на и вывести его. 2. Ввести три действительных числа. Наименьшее из них заменить их средним...
Pascal Дан вектор. Найти 3 максимального числа и поместить их в начало вектора. Дан вектор. Найти 3 максимального числа и поместить их в начало вектора. Не пойму где ошибка, бывает выводит какие-то сердечки или число 2457 program cat; uses crt; var a:array of integer;... https://www.cyberforum.ru/ pascal/ thread174199.html
Pascal Действительная матрица https://www.cyberforum.ru/ pascal/ thread174192.html
Дана действительная матрица размером (n*m). Найти значение сумму наименьших элементов ее строк!"!!!
Pascal Дано целое число. Сформировать новое число...
Дано целое число. Сформировать новое число, нечетные (по порядку) разряды которого совпадают с соответствующими разрядами исходного числа, а четные равны нулю.
Pascal Снова матрица...
Матрица D. Вывести на экран столбцы, минимальные элементы которых кратны 3.
Pascal перевести число в факториальную систему исчисления Как перевести число в факториальную систему исчесления???? помогите плиз срочно надо https://www.cyberforum.ru/ pascal/ thread174153.html
Pascal Сума непарных Елементов https://www.cyberforum.ru/ pascal/ thread174143.html
Ввести случайные числа в массив(числа от 100 до 200), и пощитать суму непарных... Меня интересует как задать ввод от 100 до 200, и как отобрать непарные. ...
Pascal Утечка памяти Написал программу но не могу понять почему так происходит. В начале программы выделяю памяти под переменные потом когда необходимость в них отпадает освобождаю памяти но почему-то количество... https://www.cyberforum.ru/ pascal/ thread174134.html
101 / 100 / 36
Регистрация: 14.09.2010
Сообщений: 223
09.10.2010, 17:26 0

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

09.10.2010, 17:26. Показов 7272. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено asdso как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var f,l,k,c,p,n:word;
begin
clrscr;
read(n);
k:=n;
l:=n;
      while (l>0) do begin
              f:=l mod 10;
              l:=l div 10;
              end;
      while (k>0) do begin
              c:=k mod 10;
              k:=k div 10;
              if (c=f) then p:=p+1;
              end;
writeln('в числе',n,'количество цифр равных первой=',p);
readln;
end.
Добавлено через 13 секунд
Это первая

Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses Crt;
var i,s,s2:integer;
begn
for i:=1000 to 9999 do
     begin
     s:=i mod 133;
     s2:=i mod 134;
     if (s=125) and (s2=111) then writeln(i);
     end;
readln;
end.
Добавлено через 12 секунд
это вторая

Вернуться к обсуждению:
Дано натуральное число. Определить, сколько раз в нем встречается цифра, равная первой
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.10.2010, 17:26
Готовые ответы и решения:

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

Дано некоторое натуральное число. Определить сколько и каких цифр встречается в записи числа. Результат обработки: <цифра> - <количество>.
Помогите пожалуйста. Почему-то не получается. Заранее спасибо

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

дано слово, сколько раз в нем встречается данный слог.
вобщем в этом и состоит задачка, только слог должен состоять из 2 букв. дальше приведу свои...

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