Нужна блок-схема по этому коду
uses
crt; procedure Find; var i: Integer; n1, n2: Integer; begin for i := 10 to 99 do begin n1 := i div 10; n2 := i mod 10; if (n1 + n2) * (n1 + n2) * (n1 + n2) = i * i then begin writeln(i, ' - подходит, решение найдено...'); exit; end else writeln(i, ' - не подходит ', (n1 + n2) * (n1 + n2) * (n1 + n2), ' не равно ', i*i); end; end; begin clrscr; writeln('Выполняется поиск...'); Find; end. |
Часовой пояс GMT +4, время: 21:44. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.