Задача. Найти число.

[Рон99]

Помогите решить задачу.
В 3-х значном числе зачеркнули первую цифру слева, когда полученное число умножили на 7 получилось исходное число. Найти это число.

[Alex11223]

Первую цифру слева трехзначного числа можно получить разделив (div) его на 100.

[Рон99]

А как делать дальше?

[9i.]

можете сделать методом перебора, в цикле от 100 до 999 проверять равняется ли остаток от деления на 100 умноженный на 7 счетчику цикла, если да вывести это число

[Рон99]

спасибо огромное)

[TinMan]

Сообщение от 9i.

можете сделать методом перебора,

Можно, да, но только тут не нужно получения цифры делением:

for i:=1 to 9 do
  for j:=0 to 99 do 
    if i*100+j = 7*j then Writeln(i*100+j);

Но можно обойтись без такого громадного перебора, попробовав его уменьшить..
Допустим, первая цифра исходного числа есть a. Тогда число
x = 100*a + b
- тут b - это число без первой цифры.

Записываем равенство:
100*a + b = 7*b

100*a = 6*b

b = 100*a / 6 = 50*a / 3

Поскольку b - целое, то a должно делиться на 3. Таких цифр только 4:
0, 3, 6, 9
Решение с a=0 тривиальное, число 000 по сути и не трехзначное вовсе - отбрасываем.
Берем a=3, тогда
b = 50*3/3 = 50
Так что первый ответ такой: x = 350
Берем a=6, тогда
b = 50*6/3 = 100
Это выходит за пределы двузначных чисел (а b должно быть двузначным).
Таким образом,
x = 350.

Ой, я, кажется, забыл про прогрпммирование.. sorry..
Попробую исправить эту мою ошибку )).
Начинаю с места, где перебираем цифры: 3, 6, 9.

for i:=1 to 3 do 
  if 3*i*100+50*i = 7*50*i then Writeln(3*i*100+50*i);

Вот так. Надеюсь, не ошибся.. ))

[Serge_Bliznykov]

for i:=1 to 3 do 
  if 3*i*100+50*i = 7*50*i then Writeln(3*i*100+50*i);

Вот так. Надеюсь, не ошибся.. ))

в принципе, не ошиблись.
Но этот код выдаёт помимо правильного ответа ещё два неверных:

350
700
1050

[Рон99]

TinMan- предпочитаю на ты.

Я так же предпочитаю на ты, спасибо тебе огромное очень помог

[TinMan]

Сообщение от Serge_Bliznykov

в принципе, не ошиблись.
Но этот код выдаёт помимо правильного ответа ещё два неверных:

Спасибо, Серж (добавляю палочку в список..))
Все же ошибся - не в циферках, а в логике. Надо же еще проверять b на двузначность..
Вот так:

for i:=1 to 3 do 
  if (3*i*100+50*i = 7*50*i) and (50*i<100) then
    Writeln(3*i*100+50*i);

Но только.. второе условие на самом деле есть i<2, и это зарубает цикл на корню.. (я не решился это условие писать там в таком виде)) В цикле остается одно значение i=1. Баста.

Короче - задача была на программирование, и не надо тут философствовать )). Начало моего предыдущего поста было по делу, остальное следует считать флудом со всеми вытекающими.. каюсь ))