Определите значение переменной S после выполнения программы:
VAR A,S: INTEGER;
BEGIN
S:=0;
FOR A:=1 TO 4 DO
S:=S*A;
WRITELN('S=', S);
END.​

demondru    2   23.05.2020 11:30    48