32767 1,000,000
16,960 1000 16
11.3
1/3 1/7 7 15 Pascal
4 1/3 0.33333334267440796 7:
4
1,000,000.00+0.01 1,000,000.00 1,000,000.01
4 0.01 5,000,000.02-5,000,000.
01 0.0 0.10.l 10 1.0
Sum Nominal :
var
Norminal: single; Nominal 4
Sum: single;
i: integer;
begin
Norminal:=1.0;
Sum:=0;
for i:=1 to 10 do
Sum:=Sum+0.1; Sum 10*0.1 1.0
if(Nominal=Sum) then
writeln(‘Numbers are the same.’)
else
writeln(‘ Numbers are different.’)
end;
: