Skip to content

Instantly share code, notes, and snippets.

@tonetheman

tonetheman/oddhnew.pas

Created August 21, 2021 19:46
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tonetheman/db1c3d3cc8a63a0498ed3b16514672e6 to your computer and use it in GitHub Desktop.
Save tonetheman/db1c3d3cc8a63a0498ed3b16514672e6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
oddhnew.pas
program TestMe;
var
i : Longint;
x : Longint = 0;
y : Real = 0;
begin
for i:=0 to 116000 do
begin
x := i;
y := (x*4)/2.71;
end;
writeln(x,y);
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment