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

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

13.06.2018, 15:11. Показов 1584. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Вывести на экран такие трехзначные числа, у которых разность третей и первой цифры равна второй цифре.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.06.2018, 15:11
Ответы с готовыми решениями:

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

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

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

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

2
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
13.06.2018, 15:42 2
Лучший ответ Сообщение было отмечено ya_student как решение

Решение

Если разница 1 и 3 цифр, (|1-3|)
Pascal
1
2
for i:=100 to 999 do
if abs(i mod 10-i div 10)=i div 10 mod 10 then write(i:4);
Если именно разность 1 и 3 цифр, (1-3) то так
Pascal
1
if i mod 10-i div 10=i div 10 mod 10 then write(i:4);
0
Модератор
9851 / 5222 / 3303
Регистрация: 17.08.2012
Сообщений: 15,971
15.06.2018, 01:12 3
Другой подход: формирование нужных чисел вместо их выбора (54 итерации против 899)
Pascal
1
2
3
4
5
6
7
8
9
var
  i, j: integer;
 
begin
  for i := 1 to 9 do
    for j := i downto 0 do
      write(' ', i, i - j, j);
  readln
end.
Если нужна не только печать числа, но и само число, тогда так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  i, j, n: integer;
 
begin
  for i := 1 to 9 do
    for j := i downto 0 do
      begin
        n := (i * 11 - j) * 10 + j;
        write(n:4)
      end;
  readln
end.
0
15.06.2018, 01:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2018, 01:12
Помогаю со студенческими работами здесь

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

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

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

Посчитать количество чисел, в которых сумма первой цифры и третьей цифры равна второй цифре
Условие: посчитать количество чисел, в которых сумма первой цифры и третей цифры равна второй...


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

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

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