Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Sirius051
0 / 0 / 0
Регистрация: 30.06.2012
Сообщений: 10
1

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

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

Вывести на экран все 3-значные числа, в записи которых используется одинаковые цифры. Найти их сумму. Использовать процедуру пользователя.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.07.2012, 16:08
Ответы с готовыми решениями:

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

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

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

Вывести на экран все трехзначные числа, из которых хотя бы 2 одинаковые
Вывести на экран все трехзначные числа, из которых хотя бы 2 одинаковые!!! Пример: 001 002 003...

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

4
Amid007
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
Sirius051
0 / 0 / 0
Регистрация: 30.06.2012
Сообщений: 10
04.07.2012, 17:52  [ТС] 3
Препод пишет что не понятно при чём тут див и мод, и сумма не найдена, ребят помогите у меня экзамен.
0
КонецСвета
Почетный модератор
7942 / 3913 / 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
denrdv
1 / 1 / 0
Регистрация: 30.06.2012
Сообщений: 16
04.07.2012, 19:08 5
Спасибо)))))
Целую во все места))))****
0
04.07.2012, 19:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.07.2012, 19:08

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
Хорошая тема,поэтому ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!! Условие: Вывести на экран все трехзначные числа,...

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

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


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

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

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