home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hráč 1997 December
/
Hrac_16_1997-12_cd.bin
/
PCMANIAK.5
/
PASKA
/
MANIAK3.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1997-10-26
|
789b
|
28 lines
Program MATEMATIKA;
var a,b, sucet,sucin,podiel,rozdiel : real; { typ REAL su realne cisla,
cize cisla v rozsahu
2,9.10-39..1,7.10+38 aj
s desatinou ciarkou }
Begin
Writeln('Zadaj cislo');
Readln(a);
Writeln('Zadaj dalsie cislo');
Readln(b);
sucet:=a+b; { znamienka: sucet cisel + }
sucin:=a*b; { sucin cisel * }
rozdiel:=a-b; { rozdiel cisel - }
podiel:=a/b; { podiel cisel / }
Writeln('Sucet : ',sucet:8:2);
Writeln('Sucin : ',sucin:8:2);
Writeln('Rozdiel : ',rozdiel:6:2);
Writeln('Podiel : ',podiel:7:2);
Readln;
End.