0 / 0 / 0
Регистрация: 06.02.2017
Сообщений: 6

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

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

Author24 — интернет-сервис помощи студентам
Дано натуральное число, определите сколько раз в нём встретится последняя цифра. решение нужно через цикл goto
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
06.02.2017, 18:52
Ответы с готовыми решениями:

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

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

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

4
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
06.02.2017, 19:07
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  [ТС]
но ведь это через цикл while, мы его ещё не прошли и делаем только через goto

Добавлено через 5 минут
label и goto
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
06.02.2017, 19:17
Лучший ответ Сообщение было отмечено 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  [ТС]
огромное спасибо, безмерно благодарен)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.02.2017, 19:20
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
CQRS (Command Query Responsibility Segregation) на Java
Javaican 12.05.2025
CQRS — Command Query Responsibility Segregation, или разделение ответственности команд и запросов. Суть этого архитектурного паттерна проста: операции чтения данных (запросы) отделяются от операций. . .
Шаблоны и приёмы реализации DDD на C#
stackOverflow 12.05.2025
Когда я впервые погрузился в мир Domain-Driven Design, мне показалось, что это очередная модная методология, которая скоро канет в лету. Однако годы практики убедили меня в обратном. DDD — не просто. . .
Исследование рантаймов контейнеров Docker, containerd и rkt
Mr. Docker 11.05.2025
Когда мы говорим о контейнерных рантаймах, мы обсуждаем программные компоненты, отвечающие за исполнение контейнеризованных приложений. Это тот слой, который берет образ контейнера и превращает его в. . .
Micronaut и GraalVM - будущее микросервисов на Java?
Javaican 11.05.2025
Облачные вычисления безжалостно обнажили ахиллесову пяту Java — прожорливость к ресурсам и медлительный старт приложений. Традиционные фреймворки, годами радовавшие корпоративных разработчиков своей. . .
Инфраструктура как код на C#
stackOverflow 11.05.2025
IaC — это управление и развертывание инфраструктуры через машиночитаемые файлы определений, а не через физическую настройку оборудования или интерактивные инструменты. Представьте: все ваши серверы,. . .
Инъекция зависимостей в ASP.NET Core - Практический подход
UnmanagedCoder 11.05.2025
Инъекция зависимостей (Dependency Injection, DI) — это техника программирования, которая кардинально меняет подход к управлению зависимостями в приложениях. Представьте модульный дом, где каждая. . .
Битва за скорость: может ли Java догнать Rust и C++?
Javaican 11.05.2025
Java, с её мантрой "напиши один раз, запускай где угодно", десятилетиями остаётся в тени своих "быстрых" собратьев, когда речь заходит о сырой вычислительной мощи. Rust и C++ традиционно занимают. . .
Упрощение разработки облачной инфраструктуры с Golang
golander 11.05.2025
Причины популярности Go в облачной инфраструктуре просты и одновременно глубоки. Прежде всего — поразительная конкурентность, реализованная через горутины, которые дешевле традиционных потоков в. . .
Создание конвейеров данных ETL с помощью Pandas
AI_Generated 10.05.2025
Помню свой первый опыт работы с большим датасетом — это была катастрофа из неотформатированных CSV-файлов, странных значений NULL и дубликатов, от которых ехала крыша. Тогда я потратил три дня на. . .
C++ и OpenCV - Гайд по продвинутому компьютерному зрению
bytestream 10.05.2025
Компьютерное зрение — одна из тех технологий, которые буквально меняют мир на наших глазах. Если оглянуться на несколько лет назад, то сложно представить, что алгоритмы смогут не просто распознавать. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru