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

Если между цифрами двузначного числа записать ноль, то полученное трехзначное число

будет в 7 раз больше первоначального. Найдите это число.

Паскаль

Если между цифрами двузначного числа записать ноль, то полученное трехзначное число

будет в 7 раз больше первоначального. Найдите это число.

Вариант без строк.

//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