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

@Кирилл Беликов · Регистрация: 16.06.2018

Студворк — интернет-сервис помощи студентам

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

@Puporev · 16.06.2018, 10:58

Pascal

uses crt;
var i,j,k:integer;
begin
clrscr;
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if abs(i-k)=j then write(i,j,k,' ');
readln
end.

@Cyborg Drone · 16.06.2018, 17:09

Puporev, разность, а не разница. Abs не нужен. Вариант программы с уменьшенным количеством итераций (25 против 900):

Pascal

var
  i, j: integer;
 
begin
  for i := 1 to 9 do
    for j := i to 9 do
      write(' ', i, j - i, j);
  readln
end.

Если требуется не только печать числа, но и само число:

Pascal

var
  i, j, n: integer;
 
begin
  for i := 1 to 9 do
    for j := i to 9 do
      begin
        n := 90 * i + 11 * j;
        write(n:4)
      end;
  readln
end.

@кот Бегемот · 16.06.2018, 23:02

Сообщение от Cyborg Drone

Вариант программы с уменьшенным количеством итераций (25 против 900)

Pascal

1 2	for i := 1 to 9 do for j := i to 9 do

9*9=25
Нобелевская премия.

@Cyborg Drone · 17.06.2018, 08:06

кот Бегемот, второй цикл - от i до 9, а не от 1 до 9.

Что там насчёт моей Нобелевки? Уже готовите?

А вообще, нет, не надо Нобелевки... Просчитался я, получается

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{n=1}^{9}n\ =\ 45<br />$

итераций, а никак не 25.
Ладно, давайте просто премию.

@Кирилл Беликов 0 / 0 / 0 Регистрация: 16.06.2018 Сообщений: 2
		1
	Вывести трехзначные числа, у которых разность 3-ей и 1-ой цифр равна 2-ой цифре 16.06.2018, 10:20. Показов 1630. Ответов 4 Метки нет (Все метки) Вывести на экран такие трехзначные числа , у которых разность 3 и 1 равна 2 цифре 0

@Cyborg Drone Модератор 9656 / 4976 / 3265 Регистрация: 17.08.2012 Сообщений: 15,476
	17.06.2018, 08:06	5
	кот Бегемот, второй цикл - от i до 9, а не от 1 до 9. Что там насчёт моей Нобелевки? Уже готовите? А вообще, нет, не надо Нобелевки... Просчитался я, получается $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{n=1}^{9}n\ =\ 45<br />$ итераций, а никак не 25. Ладно, давайте просто премию. 0

Опции темы