Как найти сотни в четырехзначном числе - Сайт, где вы сможете решить свои вопросы

0 / 0 / 0

Регистрация: 23.01.2017

Сообщений: 11

09.02.2017, 10:26. Показов 8720. Ответов 10

Как сделать эту del?

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

09.02.2017, 10:26

Ответы с готовыми решениями:

Количество тысяч, сотен, десятков и единиц в числе
Пожалуйста напишите программу, определяющую количество тысяч, сотен, десятков и единиц во введенном…

Из четырехзначного числа получить: первое число – сумма тысяч и сотен, второе – десятков и единиц
Кто понимает Haskell решите задачу пожалуйста
Из четырехзначного числа получить число…

Сложение класс единиц, десятков, сотен и тысяч
Создал файл sayilar.txt в нем числа:
5379
5983
3985
2679
1596
3496
8356

Я считываю файлы…

В числе 5672 найти число тысяч, сотен, десятков и единиц
1) В числе 5672 найти число тысяч, сотен, десятков и единиц. Найти сумму и произведение цифр…

Joy

2385 / 1297 / 1492

Регистрация: 29.08.2014

Сообщений: 4,661

09.02.2017, 10:38

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
var
  a:integer;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
     write('a=');
     readln(a);
     writeln('единиц:',a mod 10);
     writeln('десятков:',a mod 100 div 10);
     writeln('сотен:',a mod 1000 div 100);
     writeln('тысяч:',a div 1000);
     readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

unifikator

500 / 356 / 231

Регистрация: 29.03.2015

Сообщений: 675

09.02.2017, 10:41

Код:

Delphi

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
begin
try
n:=strtoint(edit1.Text);
except
showmessage('Четырёхзначное число должно быть целым числом!');
exit;
end;
n:=abs(n);
if (n<1000)or(n>9999) then
begin
showmessage('Четырёхзначное число должно содержать только четыре цифры!');
exit;
end;
label2.Caption:='Тысячи: '+inttostr(n div 1000)+'. Сотни: '
+inttostr((n mod 1000)div 100)+'. Десятки: '+inttostr((n mod 100)div 10)+
'. Единицы: '+inttostr(n mod 10)+'.';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1Click(Sender);
end;
 
end.

Прилагаю проект на Delphi.

Вложения

Number1.zip (207.4 Кб, 4 просмотров)

0 / 0 / 0

Регистрация: 23.01.2017

Сообщений: 11

09.02.2017, 10:44

[ТС]

премного благодарна!

D1973

Модератор

8438 / 5628 / 2287

Регистрация: 21.01.2014

Сообщений: 24,160

Записей в блоге: 3

09.02.2017, 10:52

Сообщение было отмечено Rozental11 как решение

Решение

1. Здороваться не учили?
2. Выражаться не надо!
3. Что надо-то? Консоль или форму?
4.

Сообщение от Rozental11

Как сделать эту

Думать головой, писать руками. Смотри не перепутай.
5. Для формы код, например, такой…

Delphi

procedure TForm1.Button2Click(Sender: TObject);
begin
 Label1.Caption := Format('В числе тысяч: %s, сотен: %s, десятков: %s, единиц: %s', [Edit1.Text[1], Edit1.Text[2], Edit1.Text[3], Edit1.Text[4]]);
end;

Миниатюры

0 / 0 / 0

Регистрация: 23.01.2017

Сообщений: 11

09.02.2017, 11:05

[ТС]

Здравствуй, извиняюсь,писала не я, а мой друг по комп.-ру
Могу я у тебя спросить еще 3 задачи? Они простые, но не для меня)

droider

4885 / 2757 / 849

Регистрация: 04.10.2012

Сообщений: 10,055

09.02.2017, 11:10

Rozental11, или так

Delphi

var
n:Word;
begin
n :=StrToInt(Edit1.Text); //задаем число
  if (n<1000) or (n>9999) then //проверяем его
  begin
  MessageBox(0, PChar('Требуется 4-значное число!'),
  PChar('Ошибка ввода'), MB_OK+MB_ICONERROR);
  Exit;
  end;
ShowMessage(Format('Тысяч: %d, сотен: %d, десятков: %d, единиц: %d',
[n div 1000, (n mod 1000) div 100, (n mod 100) div 10, n mod 10])); //результат
end;

0 / 0 / 0

Регистрация: 23.01.2017

Сообщений: 11

09.02.2017, 11:14

[ТС]

D1973, Здравствуй, извиняюсь,писала не я, а мой друг по комп.-ру
Могу я у тебя спросить еще 3 задачи? Они простые, но не для меня)

4885 / 2757 / 849

Регистрация: 04.10.2012

Сообщений: 10,055

09.02.2017, 11:15

Rozental11, зачем повторяться? Одна задача – одна тема.

Модератор

8438 / 5628 / 2287

Регистрация: 21.01.2014

Сообщений: 24,160

Записей в блоге: 3

09.02.2017, 11:23

Rozental11, почему же нет, спрашивайте конечно… Только, как правильно заметил droider, одна задача – одна тема. И сразу уточните, какое приложение требуется, консоль или с формой.

0 / 0 / 0

Регистрация: 23.01.2017

Сообщений: 11

09.02.2017, 11:31

[ТС]

D1973, уже все, тема создана, спасибо

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

09.02.2017, 11:31

Помогаю со студенческими работами здесь

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

Необходимо найти количество единиц, десятков и сотен указанного числа
Дано трехзначное число. Необходимо найти количество единиц, десятков и сотен указанного числа….

Дано трехзначное число определить количество сотен, десятков и единиц
Дано трехзначное число определить кол-во сотен,десятков и единиц.Помогите решить!

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

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

Или воспользуйтесь поиском по форуму:

Источник

когда просишь составить программу, желательно указывать язык программирования 🙂

есть такая операция – остаток от деления. именно с её помощью можно число разлагать на цифры.

например, число 47453818. остаток от деления на 10 – 8. значит, в числе 8 единиц.
далее, отбрасываем последнюю цифру при помощи целочисленного деления на 10 – работаем с числом 4745381. остаток от деления на 10 – 1. значит, в числе 1 десяток.
474538 – в числе 8 сотен.
47453 – в числе 3 тысячи

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

в Паскале остаток от деления – Mod, целочисленное деление – Div, например
units := n Mod 10; n := n Div 10;

привожу полный код на Си, если нужен другой язык или ещё какие нюансы возникнут – комментируй этот ответ.

#include <stdio.h>

int main() {
int n;
printf(“Enter four-digit number “);
scanf(“%d”,&n);

int units,tens,hundreds,thousands;
units = n % 10;
n = n / 10;
tens = n % 10;
n = n / 10;
hundreds = n % 10;
n = n / 10;
thousands = n % 10;

printf(“Provided number contains %d thousands, %d hundreds, %d tens and %d unitsn”,thousands,hundreds,tens,units);
return 0;
}

Источник

Тут однако любой школьник начальных классов ответит на ваш вопрос, ну если и не любой, то по крайней мере большинство это знает точно.

Всё достаточно просто и для того чтобы узнать – сколько сотен в каждом числе из написанных в самом вопросе, то необходимо разделить данные числа ровно на сто. Полученные ответы могут содержать десятые доли, но вот первое число перед запятой и будет правильным – именно столько полных сотен в данном числе.

Это решение к стати относится не только на приведённые в пример числа, но и распространяется на все числа в принципе.

Поэтому здесь все просто и понятно, например в числе 3700 – ровно 37 сотен, так же как и в 30000 ровно триста сотен.

система выбрала этот ответ лучшим

андрей4100
[65.7K]

4 года назад

Чтобы узнать сколько сотен в каждом заданном нам числе, нужное данное число разделить на сто:

1) 590:100= 5.9 или 5 целых сотен;

2)3700:100=37 сотен ровно;

3)65902:100=659.02 или 659 целых сотен;

4)45820:100=458.2 или 458 целых сотен;

5)300000:100=3000 сотен ровно.

С право отсчитываем два знака, и все символы что лежат с лева от них будут выражать количество целых сотен.

590; 3700; 65902; 45820; 300000 – в каждом из указанных чисел жирным шрифтом выделил количество сотен.

Первые два символа справа означают единицы и десятки, их в расчет по условию вопроса не берем.

Master-Margarita
[135K]

3 года назад

590 – 5 сотен (590:100 – целая часть 5),

3700 – 37 сотен (3700 :100 = 3700);

65902 – 659 сотен (65902 :100 – целая часть 659);

45820 – 458 сотен (45820:100 = 458);

300000 – 3000 сотен (300000:100 = 3000)

На 100 делим, или еще проще просто откидываем две последние цифры у числа и все.

лыковапишу
[8.2K]

5 лет назад

Справа налево поставьте мысленно точку, отделив 2 знака: 590 = 5.90 ( пять это количество сотен), 3700= 37.00 ( 37 сотен и так далее). Или просто делим на сто, поместив число в числитель а сотню в знаменатель, в результате получится кол-во сотен. 65902/100=659.

Khamitovr
[2.9K]

4 года назад

В решении этого вопроса нет ничего сложного. Есть два варианта:

Просто поставить точку, отделив справа налево два знака
Разделить на сто

Поэтому, правильные ответы:

590 – 5 сотен
3700 – 37 сотен
65902 – 659 сотен
45820 – 458 сотен
300000 – 3000 сотен

Красное облако
[248K]

4 года назад

Число 590, 5 сотен и остаток.

3700, 37 сотен и нет остатка.

65902, 659 сотен и остаток.

45820, 458 сотен и остаток.

3 00000, в этом числе ровно 3 тысячи сотен и нет никакого остатка, то есть ровно 3000 сотен.

Sleyter
[2.1K]

5 лет назад

Это что кроссворд или просто для тех кто первым ответит на этот вопрос? )))

590 – 5 сотен

3700 – 37 сотен

65902 – 659 сотен

45820 – 458 сотен

300000 – 3000 сотен

Знаете ответ?

Источник

В python есть возможность из строки извлекать конкретный символ:

a=input("Введите число: ")
print('Цифра в позиции тысяч равна', a[1])
print('Цифра в позиции сотен равна', a[2])
print('Цифра в позиции десятков равна', a[3])
print('Цифра в позиции единиц равна', a[4])

Также хочу заметить, что эта функция a[i] принимает также и отрицательные значения, например:

a=1234
a[-1]=3 #2 символ с конца
a[0]=4  #1 символ с конца

И вообще ваши вычисления были не нужны, тем более они не верны. Если смотреть через числа то n1,n2,n3,n4 должны быть так вычислены:

a=int(a)
n1=a//1000
n2=(a//100)%10
n3=(a%100)//10
n4=a%10

print('Цифра в позиции тысяч равна', n1)
print('Цифра в позиции сотен равна', n2)
print('Цифра в позиции десятков равна', n3)
print('Цифра в позиции единиц равна', n4)

На всякий случай уточню, что знак “//” равносилен div, а “%” – mod.

Источник

Инфоурок

›

Информатика

›Научные работы›Программа на ЯП Паскаль для нахождения кол-ва тысяч, сотен и десятков в четырёхзначном числе.

Программа на ЯП Паскаль для нахождения кол-ва тысяч, сотен и десятков в четырёхзначном числе.

Скачать материал

Сейчас обучается 27 человек из 18 регионов

Сейчас обучается 89 человек из 28 регионов

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

6 258 038 материалов в базе

Выберите категорию:
Выберите учебник и тему

Выберите класс:
Тип материала:
- Все материалы
- Статьи
- Научные работы
- Видеоуроки
- Презентации
- Конспекты
- Тесты
- Рабочие программы
- Другие методич. материалы

Найти материалы

Другие материалы

25.01.2017
1180
4

Рейтинг:
5 из 5

25.01.2017
10231
64

25.01.2017
564
0

25.01.2017
555
0

25.01.2017
861
2

25.01.2017
1555
12

25.01.2017
2860
1

Вам будут интересны эти курсы:

Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс повышения квалификации «Облачные технологии в образовании»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»

Настоящий материал опубликован пользователем Zilowski Max Jurievich. Инфоурок является
информационным посредником и предоставляет пользователям возможность размещать на сайте
методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них
сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с
сайта, Вы можете оставить жалобу на материал.

Удалить материал
- На сайте: 2 года и 7 месяцев
- Подписчики: 0
- Всего просмотров: 466563
- Всего материалов:
  
  49