uses wincrt;
var f,i,j,n,a:integer;
begin
readln(n);
for i:=n downto 2 do
begin
j:=i+i-1;
write (j,'+');
end;
begin
a:= n*n;
write (1,'=',a);
end;
writeln;
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 f,i,j,n,a:integer;
begin
readln(n);
for i:=n downto 2 do
begin
j:=i+i-1;
write (j,'+');
end;
begin
a:= n*n;
write (1,'=',a);
end;
writeln;
end.
uses wincrt;
var f,i,j,n,a:integer;
begin
readln(n);
for i:=n downto 2 do
begin
j:=i+i-1;
write (j,'+');
end;
begin
a:= n*n;
write (1,'=',a);
end;
writeln;
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