Program pengulangan;
uses crt;
var
jumlah : integer;
yes : char;
i, n : byte;
begin
While (yes<>'n') AND (yes<> 'N') do
Begin
Clrscr;
Textcolor (Yellow);
write ('Masukan jumlah pengulangan :'); readln (n);
jumlah := 0;
for i := 1 to n do
begin
write (i);
if (i<n) then
Write ('+')
else
Write ('=');
jumlah := jumlah + i;
end;
Writeln (Jumlah);
Write ('Coba Lagi (Y/N)? '); readln (yes);
end;
readln;
end.
0 komentar:
Posting Komentar