zhidkovzachar

24.03.2023 23:32 •  Информатика

Нарисовать блок-схемы к следующим программам* program z1; var а, в, sr, р: integer; begin writeln(‘введите а,в’); readln(а,в); p: =а*в; sr: =(а+в)/2; writeln(‘sr=’ , sr, ‘р=’,р); end. program z2; var а, в,: integer; s: real; begin writeln(‘введите а,в’); readln(а,в); if a> =5 then writeln(‘пять’); if a=4 then writeln(‘четыре’); if a=3 then writeln(‘три’); if a< 3 then writeln(‘два’); end. program z3; var i, a,b,s,k: integer; begin writeln(‘введите a,b’); readln(a,b); for i: =a to b do begin s: =s+i; k: =k+1; end; writeln(‘sr=’,s/k); end.