Составить блок схему паскаль: var d,m,g,dm: integer; begin readln(d,m,g); if d-1=0 then begin if m-1=0 then m: =12 else m: =m-1; if (m=12) and (d=1) then g: =g-1 else g: =g; case m of 4,6,9,11: dm: =30; 1,3,5,7,8,10,12: dm: =31; end; if (g mod 4< > 0) and (m=2) then d: =28 else if (g mod 100< > 0) and (m=2) then d: =29 else if (g mod 400=0) and (m=2) then d: =29 else d: =28; end; writeln(d, ' ',m,' ',g); end.

sevara17    1   06.10.2019 14:50    5