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

@Алеся2018 · Регистрация: 05.03.2018

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

@Constantin Cat · 06.03.2018, 10:08

Pascal

var n:integer;
begin
  n:=100;
  repeat
    inc(n);
  until(n>1000)or((n mod 10)=(n div 100))and((n mod 8)=0);
  writeln('result:=',n);
end.

@Cyborg Drone · 07.03.2018, 07:44

Более оптимальный вариант, 13 итераций у меня против 132 итераций у Constantin Cat.

Pascal

var
  a, b: byte;
 
begin
  a := 1;
  b := 0;
  while (101 * a + 10 * b) mod 8 > 0 do
    if b < 9
      then inc(b)
      else begin
        b := 0;
        inc(a)
      end;
  write(101 * a + 10 * b)
end.

@кот Бегемот · 07.03.2018, 08:59

Cyborg Drone, если сообразить, что число, заканчивающееся на 1 (а так же на 3,5,7,9) никогда не поделится на 8, то количество итераций уменьшится до 3.

Pascal

var
  a, b: byte;
 
begin
  a := 1;
  b := 0;
  while (202 * a + 10 * b) mod 8 > 0 do
    if b < 9
      then inc(b)
      else begin
        b := 0;
        inc(a)
      end;
  write(202 * a + 10 * b)
end.

@Cyborg Drone · 07.03.2018, 10:17

кот Бегемот, что-то я не сообразил...

@Алеся2018 0 / 0 / 0 Регистрация: 05.03.2018 Сообщений: 20
		1
	Найти первое 3-хзначное число, кратное 8-ми, у которого первая и последняя цифры равны 06.03.2018, 09:37. Показов 2458. Ответов 4 Метки нет (Все метки) Найти первое 3-хзначное число, кратное 8-ми, у которого первая и последняя цифры равны 0

@Cyborg Drone Модератор 10059 / 5401 / 3353 Регистрация: 17.08.2012 Сообщений: 16,520
	07.03.2018, 10:17	5
	кот Бегемот, что-то я не сообразил... 0

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

Решение