Bài 8. Lặp với số lần chưa biết trước

program DemSoChiaHetCho5;
var
  n, i, count: integer;
begin
  write('Nhap n: ');
  readln(n);
  
  i := 1;
  count := 0;
  while i <= n do
  begin
    if i mod 5 = 0 then
      count := count + 1;
    i := i + 1;
  end;
  
  writeln('Co ', count, ' so tu nhien chia het cho 5 trong khoang tu 1 den ', n);
end.

python

i = 1
tong = 0
while tong <= 150:
    tong += i
    i += 1
print("Số lần lặp là:", i-2)
print("Tổng các số tự nhiên liên tiếp là:", tong-i)

Var i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

s:=s + 2*i;

Write('Tong la ',s);

Readln;

End.

Từ 5 đến 10 có 6 lần lặp (10-5+1=6), sau mỗi lần lặp biến j tăng lên 1 đơn vị => j=2+6 = 8

uses crt;
var n:int64;
begin
clrscr;
n:=maxint;
while 1/n>=0.0005 do
begin
n:=n-1;
end;
writeln(n);
readln;
end.

Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?

n = int(input("Nhập số nguyên n: "))

tong = 0

i = 1

while i <= n:

          tong += i

          i += 1

print("Tổng các số từ 0 đến", n, "là:", tong)

program TongChan;

var

     S, i: integer;

begin

     S := 0;

     i := 2;

     while S > 2000 do

     begin

          S := S + i;

          i := i + 2;

     end;

     writeln('Tong cac so chan la ', S);

     readln;

end.

program BaiTap;

uses crt;

var

     a, b, c, i, n: integer;

     D: longint;

begin

     clrscr;

     a:=2;

     b:=3;

     c:=5;

     n:=7;

     D:=a+b+c;

     for i:=4 to n do

     begin

          a:=b;

          b:=c;

          c:=a+b;

          D:=D+c;

     end;

     writeln('Tong la: ', D);

     readln;

end.