var i,n:integer;

s:real;

begin

write('Nhap n = ');readln(n);

for i:=1 to n do

s:=s+1/(3*i+2);

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

readln;

end.

CTV xoá :P

thằng này kphuc

Bằng pascal hay C++ em

Nếu e ko biết trả lời thì đừng spam ha!

Số vòng lặp là 4 

Giá trị của x sau khi kết thúc là x=12

- Bắt đầu rồi...

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

if (a>b) cout<<"a lon hon b";

else if (a<b) cout<<"a nho hon b";

else cout<<"a bang b";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

int i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cout<<"Lan thu "<<i<<endl;

return 0;

}

mơ đi ạ KT khum giúp ạ

thi kh giúp=))))))))))))

#include <bits/stdc++.h>

using namespace std;

long long b;

int main()

{

cin>>b;

if (b%3==0) cout<<"3 la uoc cua b";

else cout<<"3 khong la uoc cua b";

return 0;

}

Chọn C

Tham khảo:

uses crt;
var a:array[1..5] of integer;
    i,t:integer;
    tb:real;
begin
     for i:=1 to 5 do readln(a[i]);
     t:=0;
    for i:=1 to 5 do t:=t+a[i];
    tb:=t/5;
    write(Tb);
    readln;
end.

Uses crt;

Var a,b,c,d,e,g:longint;

Begin

Clrscr;

writeln(so thu nhat la);readln(a);

writeln(so thu nhat la);readln(b);

writeln(so thu nhat la);readln(c);

writeln(so thu nhat la);readln(d);

writeln(so thu nhat la);readln(e);

g:=a+b+c+d+e;

Writeln('Tong scua 5 so la',g);

readln;

end.