Return to digits.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / share / doc / ps1 / 04.pascal

BSD 4.3reno

program digits(output);
var r: real;
begin
r := 0.;
r := .0;
r := 1.e10;
r := .05e-10;
writeln(r)
end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.