Консультации Портала - Консультация #198263

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 198263

15.04.2020, 04:33

0.00 руб.

0 7 1

Компьютеры Программирование

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

Создать программу, которая находит двузначные числа, имеющие одинаковые цифры, и считает их количество
pascal

Обсуждение

давно

Delph

Посетитель
400894
9

15.04.2020, 06:54

общий

15.04.2020, 21:17

[code lang=pascal]Program Q198263;
Var i, j : Integer;
Begin
j := 0;
WriteLn; WriteLn('Подсчёт двузначных чисел с одинаковыми цифрами');
for i := 10 to 99 do
if (i div 10) = (i mod 10) then
begin
if j > 0 then Write(', ');
Write(i);
inc(j);
end;
WriteLn;
WriteLn('Всего найдено ', j, ' чисел.');
ReadLn;
End.[/code]

давно

Зенченко Константин Николаевич

Старший Модератор
31795
6196

15.04.2020, 10:32

общий

Адресаты:

Зачем так усложнять:

Это однозначно говорит, что i*10[sup]1[/sup]+i*10[sup]0[/sup] т.е.:
[code lang=pascal]var
i,j:integer;
begin
j:=0;
for i:=1 to 9 do
begin
write((i*10+i):3);
inc(j);
end;
writeln(' result:=',j);
end.[/code]

Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно

Зенченко Константин Николаевич

Старший Модератор
31795
6196

15.04.2020, 10:35

общий

15.04.2020, 10:48

Адресаты:

С Вас ответ, только используйте кнопку

, выбираете Pascal.

Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно

Delph

Посетитель
400894
9

15.04.2020, 21:15

общий

это ответ

Здравствуйте, Ericsson!

Если забыть о простой в данном случае математике, то можно просто перебрать в цикле все числа от 10 до 99. Конструкция (i div 10) даст в данном случае цифру десятков, а (i mod 10) - цифру единиц. Если они совпадают, то выводим число i на экран и увеличиваем счётчик j на единицу: inc(j). По сути всё, остальное в программе - элементарные красивости.

[code lang=pascal]Program Q198263;
Var i, j : Integer;
Begin
j := 0;
WriteLn; WriteLn('Подсчёт двузначных чисел с одинаковыми цифрами');
for i := 10 to 99 do
if (i div 10) = (i mod 10) then
begin
if j > 0 then Write(', ');
Write(i);
inc(j);
end;
WriteLn;
WriteLn('Всего найдено ', j, ' чисел.');
ReadLn;
End.[/code]