Senin, 21 Desember 2009

Program Total Bilangan

uses wincrt;
var num,total,x:integer;
begin
num:=1;
total:=1;
writeln('masukkan bilangan= ');readln(x);
repeat

if numend.

Tidak ada komentar:

Posting Komentar