Перевести в блок схему
PROGRAM LAB2_2;
VAR X :REAL;
A,B,C :REAL;
BEGIN
READ(X);
A:=trunc(X) mod 10;
B:=trunc(frac(X)*10);
C:=SQRT(A*B);
WRITELN ('C=',C:4:2);
END.​

12ал12ён12на12    2   24.11.2020 13:08    0