Kotak Pencarian

Sabtu, 15 Oktober 2011

Pembahasan Soal Latihan TOKI Learning Center

Bab 1 : Pengenalan/ 1C : Perulangan

For

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