Belajar Programming Pascal
Mari berbagi ilmu pengetahuan
Kotak Pencarian
Sabtu, 15 Oktober 2011
Pembahasan Soal Latihan TOKI Learning Center
Bab 1 : Pengenalan/ 1C : Perulangan
For
Link Soal
PROGRAM for1;
VAR
n,bi,i,jum : integer;
sp : char;
BEGIN
read(n);
FOR i:= 1 to n do
begin
read(bi,sp);
jum := jum+bi;
end;
writeln(jum);
end.
Tidak ada komentar:
Posting Komentar
Posting Lebih Baru
Posting Lama
Beranda
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar