Помогите построить блок-схему для программы 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.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.