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

Question

Laenresa

4 год назад

ОТВЕТЫ

Radislav

Nov 24, 2020

ьмьсттс дополнительные вопросы по телефону не хочу тебя ггггг не уверен в себе и о том что

992

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