uses crt; 
var a, b: logint; 
Begin 
write('nhap so a ='); Readln(a); 
write('nhap so b ='); readln(b); 
If (a = 0 and b = 0) 
then write ('pt co nghiem x thuoc R') 
else 

tuy mk ngu pascal nhưng mk vẫn bt là bn lm sai r :)

#include <bits/stdc++.h>
using namespace std;
int main() {
double R, S, pi=3.14159265358979323846;
cin >> R;
S=R*R*pi;
cout << "Dien tich hinh tron la " << fixed << setprecision(21) << S << endl;
return 0;

Chúc bn học tốt! (Bn có thể chỉnh setprecision(21) thành setprecision(2) để cho ngắn gọn nha!)

Lỗi hình ảnh kìa bạn êy 

#include <bits/stdc++.h>
using namespace std;
int diaphuong(int n) {
if (n<2) {
    return 0;
}
int squareRoot = (int) sqrt(n);
int i;
for(int i=2; i<=squareRoot; i++) {
    if(n%i==0) {
        return 0;
    }
}
    return 1;
}

int main() {
int i, N;
cin >> N;
for(int i=0; i<=N; i++) {
    if(diaphuong(i)) {
    cout << i << endl;
}
}
}

Chúc bn học tốt!

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long a[100],n,i,t,s;

cin>>n;

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

cin>>a[i];

t=0;

s=1;

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

{

t=t+a[i];

s=s*a[i];

}

cout<<"Tong la:"<<t<<endl;

cout<<"Tich la:"<<s<<endl;

return 0;

}

Chị có thể ghi lời giải trực tiếp như ở trên máy tinh đc ko ạ

Câu 2: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln('Tong a+b la ',a+b);

writeln('Hieu a-b la ',a-b);

writeln('Tich cua a*b la ',a*b);

writeln('Thuong cua a/b la ',a/b:4:2);

readln;

end.

Câu 2: (C++)

#include <bits/stdc++.h>
using namespace std;
int main() {
int a, b;
cin >> a >> b;
cout << "Tong a+b la: " << a+b << "\nHieu a-b la: " << a-b << "\nTich a*b la: " << a*b << "\nThuong a/b la: " << (double)a/b << endl;
return 0;
}

Chúc bn học tốt!

uses crt;

var st:string;

d,i,dem:integer;

begin

clrscr;

readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do

if st[i]=#32 then inc(dem);

writeln(dem+1);

readln;

end.

ko thick

lớp 11 ngủ trước 12h là quá lười ; haizz 

Chọn D