Нужна блок схема к этой задаче. Составить программу вычисления двузначного числа, сумма...

Question

Нужна блок схема к этой задаче.
Составить программу вычисления двузначного числа, сумма кубов цифр которого равна n.
Var
a,b,k:byte;
n:integer;
Begin
Write('n = ');ReadLn(n);
k:=0;
For a:= 1 to 9 do
For b:= 0 to 9 do
if a*a*a+b*b*b = n then
Begin
Write(a,b,' ');
k:=k+1
End;
if k = 0 then Write('Таких чисел не существует.')
End.

Comments

Забавно: моя программка оказалась хуже, но блок-схему требуете по ней=))

---

Спасибо огромное) Обе программы были хороши. но на обе поставить лучшая нельзя. а выбрал эту потому что она больше подходит по техзаданию. но вторая понравилась мне лично по написанию. Еще раз всем спасибо за помощь.

Answer 1

Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) во вложении.

---

Comments

Спасибо огромное) Обе программы были хороши. но на обе поставить лучшая нельзя. а выбрал эту потому что она больше подходит по техзаданию. но вторая понравилась мне лично по написанию. Еще раз всем спасибо за помощь.