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.
У лукоморья дуб зеленый;
Златая цепь на дубе том:
И днем и ночью кот ученый
Все ходит по цепи кругом:
Идет направо – песнь заводит,
Налево - сказку говорит,
Там чудеса: там леший бродит,
Русалка на ветвях сидит…
(А. С. Пушкин)
Ответ:
судя по формуле он берёт число из G3 и F3 а они пустые поэтому и ноль
просьба отметить как лучший
Объяснение:
Говорит декан факультета информатики Сание<span> Мамбетовна. Ты отчислена! Завтра же зайди в деканат!</span>