Составить алгоритм поиска четырёхзначного числа, - вопрос №9459549 от рома1340 01.02.2020 21:49

Question

Информатика: Составить алгоритм поиска четырёхзначного числа, начинающегося с единицы и такого, что если переставить эту цифру в конец записи числа, то получится число, в три раза большее искомого. (на си)

рома1340 · Answer

var x,y,z:Integer; begin for x:=1 to 9 do for y:=0 to 9 do  for z:=0 to 9 do   if 3*(1000+x*100+y*10+z)=x*1000+y*100+z*10+1 then Writeln(1,x,y,z); Readln; end....