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

@ya_student · Регистрация: 13.06.2018

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

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

@Puporev · 13.06.2018, 15:42

Если разница 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);

@Cyborg Drone · 15.06.2018, 01:12

Другой подход: формирование нужных чисел вместо их выбора (54 итерации против 899)

Pascal

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

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.

@ya_student 0 / 0 / 0 Регистрация: 13.06.2018 Сообщений: 4
		1
	Вывести на экран такие трехзначные числа, у которых разность третей и первой цифры равна второй цифре 13.06.2018, 15:11. Показов 1519. Ответов 2 Метки нет (Все метки) Вывести на экран такие трехзначные числа, у которых разность третей и первой цифры равна второй цифре. 0

Опции темы

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

Решение