Помогите построить блок-схему для программы Pascal: var n, i, j: integer; begin read(n); for i := 1 to n - 1 do for j := i to n - 1 do if i * i + j * j <= n then writeln(i,'^2 + ',j,'^2 = ',i * i + j * j); end.
Answers & Comments
двоечник48
А как ты написал программу без блок-схемы?
Answers & Comments