ini adalah salah satu contoh pengulangan menggunakan pascal. silahkan mencoba :)
Program mengulang;
Uses crt;
Var
nilai, jml, bilangan, a, b : integer;
Begin
Clrscr;
Write(‘masukan banyaknya nilai yang ingin diiulang : ‘);readln(a);
Writeln;
For b := 1 to a do
Begin
Write(‘bilangan ke ‘,b,’ = ‘);readln(bilangan);
If bilangan >=10 then
begin
Nilai := nilai+1;
Jml := jml+bilangan;
End;
End;
Writeln;
Writeln(‘banyak bilangan yang >= 10 : ‘,nilai);
Writeln(‘jumlah...
