0 / 0 / 0
Регистрация: 09.12.2014
Сообщений: 38
1

Ввести с клавиатуры число и подсчитать сколько в нем цифр равных последней

09.12.2014, 16:19. Показов 1010. Ответов 4
Метки нет (Все метки)

Используя оператор цикла, разделить введеннос с клавиатуры число, разделить его на отдельные цифры и выполнить с ними заданные действия.
Ввести с клавиатуры число и подсчитать сколько в нем цифр равных последней.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2014, 16:19
Ответы с готовыми решениями:

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

Ввести с клавиатуры четырехзначное число и подсчитать, сколько среди цифр этого числа заданных цифр
1. Ввести с клавиатуры четырехзначное число и подсчитать, сколько среди цифр этого числа заданных...

Ввести число с клавиатуры и подсчитать произведение нечетных цифр
Ребят помогите решить задачу:Ввести число с клавиатуры и подсчитать произведение нечетных цифр

Ввести с клавиатуры число и подсчитать, произведение всех цифр, кратных 3
Здравствуйте помогите пожалуйста с решением задач на Паскаль. Спасибо. 1) ввести с клавиатуры...

4
840 / 735 / 342
Регистрация: 22.09.2012
Сообщений: 5,034
09.12.2014, 17:11 2
Цитата Сообщение от MashaShatrova Посмотреть сообщение
Используя оператор цикла, разделить введеннос с клавиатуры число
В какой компонент планируеш число вводить в Edit?
0
0 / 0 / 0
Регистрация: 09.12.2014
Сообщений: 38
09.12.2014, 17:16  [ТС] 3
не знаю
0
840 / 735 / 342
Регистрация: 22.09.2012
Сообщений: 5,034
09.12.2014, 17:45 4
Цитата Сообщение от MashaShatrova Посмотреть сообщение
не знаю
Ну давай начнем решать твою задачу, что нам нужно, а нужно нам найти последнюю цифру в эдите и затем сравнивать ее в цикле со всеми остальными цифрами которые есть в этом же эдите и если хоть какая-то цифра равна последней цифре что написана в эдит то мы увеличиваем счетчик. Я тебе написал этот код и то что он делает описал.
Delphi
1
2
3
4
5
6
7
8
9
10
11
var
  i: Integer; //просто для цикла
  s: Integer; //счетчик
begin
  for i := 1 to Length(Edit1.Text) do
  begin
   if Edit1.Text[Length(Edit1.Text)]=Edit1.Text[i] then
   s:= s+1;
  end;
  ShowMessage('Цифр '+Edit1.Text[Length(Edit1.Text)] + ' содержится в эдите ' + IntToStr(s)+ ' штук');
end;
Миниатюры
Ввести с клавиатуры число и подсчитать сколько в нем цифр равных последней  
1
0 / 0 / 0
Регистрация: 09.12.2014
Сообщений: 38
09.12.2014, 18:06  [ТС] 5
спасибо)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2014, 18:06
Помогаю со студенческими работами здесь

Ввести с клавиатуры число и подсчитать, произведение всех цифр, кратных 3
1) ввести с клавиатуры число и подсчитать, произведение всех цифр, кратных 3.

Запросить с клавиатуры целое 3-значное число,оканчивающееся пятеркой и напечатать, сколько в нем цифр
Составьте пожалуйста программку!) Вот задание: Запросить с клавиатуры целое 3-значное...

Ввести массив А(10), подсчитать сколько в нем четных, сколько нечетных элементов
2. Ввести массив А(10), подсчитать сколько в нем четных, сколько нечетных элементов.

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


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

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

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