Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Переменная cos имеет тип real её значение 7.542E-01
нужно её округлить до сотых ,но не в виде writeln(cos:4:2) (тоесть не при выводе ответа, а для промежуточных вычислений)
а в виде cos:= ????

Ответ оставил Гость

Var s: real;
begin
   write(задайте число: );
   readln(s);
   s:=Round(s*100);
   s:=s/100;
   writeln(s);
end.