Bài 7. Câu lênh lặp

Câu lệnh lặp for..do là lệnh lặp với số lần lặp biết trước

Lúc đầu j bằng 1 

i bằng 1 đến 10 nên j+1 10 lần 

Vậy j=12

Var i,n,d:integer;

Begin

Write('Nhap so can kiem tra ');readln(n);

For i:=1 to n do

If n mod i = 0 then d:=d+1;

If d = 2 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln

End.

Var i,n:integer;

s,so:real;

Begin

Write('Nhap so luong so thuc ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(so);

s:=s+so;

End;

Write('Tong la ',s:10:2);

Readln

End.

D

Var i,n,s:integer;

Begin

While n<=0 do

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

For i:=1 to n do

If n mod i = 0 then s:=s+i;

Write('Tong cac uoc cua ',n,' la ',s);

Readln;

End.

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i,t=0;

cin>>n;

for (int i=1; i<=n; i++)

if (n%i==0) t+=i;

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,t=0,i,dem=0;

cin>>n;

for (int i=1; i<=n; i++)

if (i%2==0)

{

t=t+i;

dem++;

}

cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);

return 0;

}