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

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

а в виде cos: = ?

Question

Амата

7 ноября, 23:21

+4

Ответы (1)

Знаете ответ на вопрос?

Толя · Answer 1

Var s: real;

begin

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

readln (s) ;

s:=Round (s*100) ;

s:=s/100;

writeln (s) ;

end.