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

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

04.07.2012, 16:08. Показов 2939. Ответов 4
Метки нет (Все метки)

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

Вывести на экран все 2х значные числа у которых 1 и 2 цифры равны меж собой.
1. Решить тремя операторами цикла p=1*2*3*..*n ; 2. Вывести на экран все 2х значные числа у...

Найти все 4-значные числа, у которых ровно две одинаковые цифры
Найти все 4-значные числа, у которых ровно две одинаковые цифры. Либо 7 либо 8 через функцию +

Вывести все четырехзначные числа в диапазоне от A до B, в записи которых есть 3 одинаковые цифры
Написал данную программу, но не могу понять, куда нужно вставить условие для промежутка (чтобы при...

Вывести на экран все четырехзначные числа, в которых ровно три одинаковые цифры
Даны четырехзначные натуральные числа N и K. Из чисел от N до K выбрать те, запись которых содержит...

4
63 / 63 / 51
Регистрация: 20.05.2011
Сообщений: 116
04.07.2012, 16:31 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program pro;
uses crt;
var i,sum: integer;
Procedure cisla;
var i: integer;
begin
 sum:=0;
 for i:=100 to 999 do
 if (i div 100= i div 10 mod 10) and (i div 10 mod 10=i mod 10) then
 begin
  write(i,'':1);
  sum:=sum+i;
 end;
writeln('sum= ',sum);
end;
begin
clrscr;
cisla;
readln;
end.
0
0 / 0 / 0
Регистрация: 30.06.2012
Сообщений: 10
04.07.2012, 17:52  [ТС] 3
Препод пишет что не понятно при чём тут див и мод, и сумма не найдена, ребят помогите у меня экзамен.
0
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
04.07.2012, 18:43 4
Sirius051, сумма найдена
Вывести на экран все 3-значные числа, в записи которых используется одинаковые цифры

Sirius051, mod 10 позволяет узнать последнюю цифру, div 100 - первую, div 10 mod 10 - среднюю... даже если анализировать число несколько по другому, все равно надо использовать операции целочисленного деления
вот (извращенный вариант)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt;
var s: integer;
 
procedure IsSame (n: integer; var b: boolean);
var cp,c: byte;
begin
b:=true;
cp:=n mod 10; n:=n div 10;
while n>=1 do
      begin
      c:=n mod 10;
      n:=n div 10;
      if c<>cp then b:=false;
      end;
end;
 
procedure WriteSum (var sum: integer);
var i: integer;
    p: boolean;
begin
for i:=100 to 999 do
    begin
    IsSame (i,p);
    if p then
       begin
       write(i,' ');
       inc(sum,i);
       end;
    end;
end;
 
begin
WriteSum (s);
writeln;
writeln('Summa=',s);
readln;
end.
а можно пойти по пути наименьшего сопротивления (и действительно без div и mod), но...
простовато
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var i: byte;
    s: integer;
    
procedure IsSame (var sum: integer);
var i: byte;
begin
for i:=1 to 9 do
    begin
    write(i*111,' ');
    inc(sum,i*111);
    end;
end;
 
begin
IsSame (s);
writeln;
writeln('Summa=',s);
readln;
end.
или, возможно, условие неполное? может быть, надо добавить "хотя бы две цифры одинаковые"?..
0
1 / 1 / 0
Регистрация: 30.06.2012
Сообщений: 16
04.07.2012, 19:08 5
Спасибо)))))
Целую во все места))))****
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.07.2012, 19:08
Помогаю со студенческими работами здесь

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

Вложенные циклы(Вывести на экран все четырехзначные числа, в которых ровно три одинаковые цифры)
Вывести на экран все четырехзначные числа, в которых ровно три одинаковые цифры. Подсчитать...

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

Вывести все 3-х значные числа, цифры которых находятся в порядке возрастания
Пргорамма С++ ...


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

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

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