Составьте блок схему: program qq; var a, b, c: integer; begin writeln ('введите два числа '); readln(a,b); while a< > b do begin if a> b then a: =a-b else b: =b-a; end; writeln ('нод равен ',a); end. p.s(нод-это наибольший общий делитель)

lubavoytenko003    1   21.09.2019 11:10    0