Составьте и выполните программу решения : если между цифрами двузначного числа записать ноль, то полученное трехзначное число будет в 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.
будет в 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