uses wincrt;
var i,n:integer;
begin
read(n);
if n=1 then write (1);
if n>1 then
begin
for i:=n downto 2 do
write (2*i-1,'+');
write (1,'=');
write (sqr(n));
end;
end.
Jangan berhenti berupaya ketika menemui kegagalan. Karena kegagalan adalah cara Tuhan mengajari kita tentang arti kesungguhan.
Sabtu, 10 Desember 2011
MATERI PASCAL
program deret angka;
uses wincrt;
var i,n:integer;
begin
read(n);
if n=1 then write (1);
if n>1 then
begin
for i:=n downto 2 do
write (2*i-1,'+');
write (1,'=');
write (sqr(n));
end;
end.
uses wincrt;
var i,n:integer;
begin
read(n);
if n=1 then write (1);
if n>1 then
begin
for i:=n downto 2 do
write (2*i-1,'+');
write (1,'=');
write (sqr(n));
end;
end.
Langganan:
Posting Komentar (Atom)
ASMAUL HUSNA
About Me
- PRANI NISKALA PRATIWI
- Saya adalah mahasiswa baru di Institut Teknologi Sepuluh Nopember, di jurusan Statistika. Saya berasal dari kota Tahu. Namun saya lahir di Pulau Ujung Timur dari negara Indonesia.
0 komentar:
Posting Komentar