Facebook

essa safest cryptocurrency exchange

From Commodious Anoa, 5 Years ago, written in Plain Text.
URL https://pastebin.pl/view/1a96352b
Embed
Download Paste or View Raw
Hits: 230
  1. program Kalkulator;
  2. USES CRT;
  3. VAR A,B,Wynik : Real;
  4.     {Real - liczby rzeczywiste - ułamki}
  5. begin                                                                                                                               a
  6.      ClrScr;
  7.      Writeln('Kalkulatorek wersja 1.0');
  8.      Write('Podaj dzielną> >');
  9.      Readln(A);
  10.      Write('Podaj dzielnik>');
  11.      Readln(B);
  12.      IF B<>0 THEN
  13.      BEGIN
  14.           Wynik:=A / B;
  15.           Writeln (A:0:3,'/',B:0:3,'=',Wynik:0:3);
  16.      END ELSE Writeln('NIE WOLNO DZIELIĆ PRZEZ ZERO!');
  17.    Readln;
  18. end.

Reply to "essa"