Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/40: Рейтинг темы: голосов - 40, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 04.10.2010
Сообщений: 30
1

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

09.10.2010, 17:16. Просмотров 7247. Ответов 2
Метки нет (Все метки)


1).Дано натуральное число. Определить, сколько раз в нем встречается цифра, равная первой.
2).Составить программу поиска четырехзначных чисел, которые при делении на 133 дают в остатке 125, а при делении на 134 дают в остатке 111.
3).Напечатать таблицу перевода 1, 2, ..., 20 долларов США в рубли по текущему курсу (значение курса вводится с клавиатуры).
Спасибо заранее!!!!!!!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.10.2010, 17:16
Ответы с готовыми решениями:

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

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

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

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.
2
101 / 100 / 36
Регистрация: 14.09.2010
Сообщений: 223
09.10.2010, 17:26 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
64 / 12 / 3
Регистрация: 04.10.2009
Сообщений: 519
09.10.2010, 17:36 3
Третья вроде так:
Pascal
1
2
3
4
5
6
7
8
9
10
const n=20;
var d: integer;
begin
writeln('Ввести курс доллара');
read(d);
for i:=1 to n do
begin
write(i, 'долларов =', i*d, ' рублей);
end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.10.2010, 17:36

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Дано слово из 4 символов. Сколько раз встречается в нем заданный символ?
Помогите пожалуйста с задачей. Дано слово из 4 символов. Сколько раз встречается в нем заданный...

Дано натуральное число а.Определить сколько в нем разрядов.Прога должна содержать проверку типов вводимых данных с выдачей отчетов об ошибках.
ребят помогите пожалуйста курсовая завтра срочно нужно. Дано натуральное число а.Определить сколько...

Определить сколько раз встречается каждая цифра в тексте
Позжалуйста помогите решить задачу по программированию: Дан текст произвольной длины . Определить...

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


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

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

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