Переменная cos имеет тип real её значение 7.542E-01

нужно её округлить до сотых, но не в виде writeln (cos:4:2) (тоесть не при выводе ответа, а для промежуточных вычислений)

а в виде cos: = ?

Question

Антося

19 июня, 15:24

+5

Ответы (1)

Знаете ответ?

Матвеич · Answer 1

Var s: real;

begin

write ('задайте число: ') ;

readln (s) ;

s:=Round (s*100) ;

s:=s/100;

writeln (s) ;

end.