program param_output
uses crt
const
max = 1000
bil : real
begin
clrscr
write('Masukkan bilangan : ');readln(bil
writeln(bil:0:1
writeln(max)
writeln(100)
writeln('Teknik Informatika
writeln(100 * 2 - 4
writeln(sqr(bil):0:2
readln
end
You Might Also Like :
0 comments:
Posting Komentar