переменная cos имеет тип real её значение 7.542E-01 нужно её округлить до сотых ,но не в виде writeln(cos:4:2) (тоесть не при выводе ответа, а для промежуточных вычислений) а в виде cos:= ????
Answers & Comments
srzontmp
Var s: real; begin write('задайте число: '); readln(s); s:=Round(s*100); s:=s/100; writeln(s); end.
Answers & Comments
begin
write('задайте число: ');
readln(s);
s:=Round(s*100);
s:=s/100;
writeln(s);
end.