Дана программа на языке паскаль: program a4; var x, k1, k2: integer; begink1: =0; k2: =0; repeatwriteln ('введите целое число'); readln (x); if x< 0 then k1: =k1+1; if x> 0 then k2: =k2+1; until x=0; writeln ('k1=' , ' ' , 'k2=' , k2)endсоставьте блок-схему, соответствующую программе.(2-умя

nikita140982ee    2   18.04.2019 19:13    17