Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.69/13: Рейтинг темы: голосов - 13, средняя оценка - 4.69
0 / 0 / 0
Регистрация: 06.02.2017
Сообщений: 6
1

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

06.02.2017, 18:52. Показов 2544. Ответов 4
Метки нет (Все метки)

Дано натуральное число, определите сколько раз в нём встретится последняя цифра. решение нужно через цикл goto
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.02.2017, 18:52
Ответы с готовыми решениями:

Дано натуральное число n. Сколько раз в нем встречается цифра A
Дано натуральное число n. Выясните, сколько раз в нем встречается цифра A.

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

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

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

4
Эксперт Pascal/Delphi
6757 / 4531 / 4802
Регистрация: 05.06.2014
Сообщений: 22,351
06.02.2017, 19:07 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  c, last, k: integer;
 
begin
  k := 0;
  write('Введите число: ');
  readln(c);
  last := c mod 10;
  writeln('Последняя цифра: ', last);
  while c > 0 do
  begin
    if c mod 10 = last then
      inc(k);
    c := c div 10;
  end;
  writeln('Количество раз встречается последняя цифра: ', k);
end.
Добавлено через 21 секунду
Цитата Сообщение от qweex3228 Посмотреть сообщение
решение нужно через цикл goto
Забудьте.
0
0 / 0 / 0
Регистрация: 06.02.2017
Сообщений: 6
06.02.2017, 19:15  [ТС] 3
но ведь это через цикл while, мы его ещё не прошли и делаем только через goto

Добавлено через 5 минут
label и goto
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
06.02.2017, 19:17 4
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var  c, last, k: integer;
     label 1;
begin
write('Введите число: ');
readln(c);
last:=c mod 10;
k:=1;
writeln('Последняя цифра: ', last);
1:c:=c div 10;
if c mod 10 = last then inc(k);
if c>0 then goto 1;
writeln('Количество раз встречается последняя цифра: ', k);
end.
1
0 / 0 / 0
Регистрация: 06.02.2017
Сообщений: 6
06.02.2017, 19:20  [ТС] 5
огромное спасибо, безмерно благодарен)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.02.2017, 19:20

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

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

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

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


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

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

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