СДЕЛАТЬ БЛОК-СХЕМУ ЭТОЙ ПРОГРАММЫ!!!!!!!!!!!!!!!! var summa,count,numb :integer; begin...

Question

СДЕЛАТЬ БЛОК-СХЕМУ ЭТОЙ ПРОГРАММЫ!!!!!!!!!!!!!!!! var summa,count,numb :integer; begin summa:=0; count:=0; readln(numb); while numb <> 0 do begin if numb mod 17 = 0 then begin summa:=summa+numb; count:=count+1; end; readln(numb); end; if (summa > 0) and (count > 0) then writeln(summa,' ',count) else writeln('No'); end.

Answer 1

____________________________________

---