Составьте и выполните программку решения задачки:Если между цифрами двузначного числа записать

Составьте и сделайте программку решения задачи:
Если меж цифрами двузначного числа записать ноль, то приобретенное трехзначное число
будет в 7 раз больше начального. Найдите это число.
Паскаль

Задать свой вопрос
Константин Галимжанов
Типо ввести 11, вставить по середине 0, получится 101 и умножить на 7, будет 707?
Славик
А все сообразил.
2 ответа
Вариант без строк.

//Pascal
var tmp1, tmp2, i: integer;
begin
for i := 10 to 99 do
begin
  tmp1 := 0; tmp2 := 0;
  tmp1 := (i div 10)*100;
  tmp2 := i mod 10;
  tmp2 := tmp1 + tmp2;
  if tmp2 = i*7 then writeln('Найдено число = ', i);
end;
readln;
end.

Итог:
Найдено число = 15
Если меж цифрами двузначного числа записать ноль, то приобретенное трехзначное число
будет в 7 раз больше начального. Найдите это число.
Света Фирцак
n - излишние
Илья Голодков
Я тоже не сходу сообразил. В задании надо отыскать одно число. Например 12 -> 102 12*7=102?
Юлия
Вышло 15. 15 ->105 15*7=105? Да.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт