Revisions to Shortest method to implement the Pythagorean Theorem

Commonmark migration

Source Link

edited Jun 17, 2020 at 9:04

1

##DELPHI / PASCAL

DELPHI / PASCAL

###With indent (157) program p; {$APPTYPE CONSOLE} var a,b:integer; begin readln(a,b); writeln('the hypotenuse of this right triangle is',sqrt(bb+aa):2:3); end.

With indent (157)

program p;
{$APPTYPE CONSOLE}
var a,b:integer;
begin
     readln(a,b);
     writeln('the hypotenuse of this right triangle is',sqrt(b*b+a*a):2:3);
end.

##DELPHI / PASCAL

###With indent (157) program p; {$APPTYPE CONSOLE} var a,b:integer; begin readln(a,b); writeln('the hypotenuse of this right triangle is',sqrt(bb+aa):2:3); end.

DELPHI / PASCAL

With indent (157)

program p;
{$APPTYPE CONSOLE}
var a,b:integer;
begin
     readln(a,b);
     writeln('the hypotenuse of this right triangle is',sqrt(b*b+a*a):2:3);
end.

Added size to answer, you can still get it down

Source Link

edit approved Feb 6, 2014 at 9:27

Teun Pronk

2.6k
1
15
28

DELPHI##DELPHI / PASCAL

program p;
{$APPTYPE CONSOLE}
var a,b:integer;
begin
     readln(a,b);
     writeln('the hypotenuse of this right triangle is',sqrt(b*b+a*a):2:3);
end.

###With indent (157) program p; {$APPTYPE CONSOLE} var a,b:integer; begin readln(a,b); writeln('the hypotenuse of this right triangle is',sqrt(bb+aa):2:3); end.

DELPHI / PASCAL

program p;
{$APPTYPE CONSOLE}
var a,b:integer;
begin
     readln(a,b);
     writeln('the hypotenuse of this right triangle is',sqrt(b*b+a*a):2:3);
end.

##DELPHI / PASCAL

###With indent (157) program p; {$APPTYPE CONSOLE} var a,b:integer; begin readln(a,b); writeln('the hypotenuse of this right triangle is',sqrt(bb+aa):2:3); end.

Source Link

created Feb 6, 2014 at 8:11

bela

81
1

DELPHI / PASCAL

program p;
{$APPTYPE CONSOLE}
var a,b:integer;
begin
     readln(a,b);
     writeln('the hypotenuse of this right triangle is',sqrt(b*b+a*a):2:3);
end.

Stack Exchange Network

Return to Answer

DELPHI / PASCAL

With indent (157)

DELPHI / PASCAL

With indent (157)