uses wincrt;
var i,j,k:integer;
begin
write ('input= ');readln(j);
i:=0;k:=-1;
repeat
if i>=1 then write ('+');
i:=i+1;
k:=k+2;
write (k);
if i=j then write ('=',j*j);
until i=j
end.
Program Penjumlahan Deret Ganjil
Selasa, 24 Desember 2013
program penjumlahanganjil;
uses wincrt;
var i,j,k:integer;
begin
write ('input= ');readln(j);
i:=0;k:=-1;
repeat
if i>=1 then write ('+');
i:=i+1;
k:=k+2;
write (k);
if i=j then write ('=',j*j);
until i=j
end.
uses wincrt;
var i,j,k:integer;
begin
write ('input= ');readln(j);
i:=0;k:=-1;
repeat
if i>=1 then write ('+');
i:=i+1;
k:=k+2;
write (k);
if i=j then write ('=',j*j);
until i=j
end.
Copyright Tanpa Nama
0 komentar:
Posting Komentar