Czy napisze mi ktoś program na dzielenie 2 liczb we Free Pascal? Proszę o pomoc? :)
Program abc;
uses crt;
var
a,b,c:real;
begin
Write('Podaj 1 liczbe: ');
Readln(a);
Write('Podaj 2 liczbe: ');
Readln(b);
c := a/b;
Writeln('Wynik tego dzielenia to: ',c:0:2);
Readln;
end.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
Program abc;
uses crt;
var
a,b,c:real;
begin
Write('Podaj 1 liczbe: ');
Readln(a);
Write('Podaj 2 liczbe: ');
Readln(b);
c := a/b;
Writeln('Wynik tego dzielenia to: ',c:0:2);
Readln;
end.