Bài 1: Khái niệm về lập trình và ngôn ngữ lập trình

Program HOC24;

var x,m,d,d1,n: integer;

t: longint;

begin

write('Nhap M:'); readln(m);

write('Nhap N:'); readln(n);

t:=0; d:=0;

for i:=m to n do

begin

t:=t+i;

if i mod 2=0 then d:=d+1 else d1:=d1+1;

end;

writeln('Tong cac so tu ',m,' den ',n,' la: ',t);

write('Nhap so nguyen: '); readln(x);

if x mod 2=0 then writeln(x,' la so le') else writeln(x,' la so chan');

if x<0 then wirteln(x,' la so am') else writeln(x,' la so duong');

if x mod 3=0 then write(x,' chia het cho 3');

readln

end.

***** Ở đề bạn có ghi là chia hết nhưng không nói số chia hết cho mấy cụ thể, nên mình đã sửa thành chia hết cho 3 nếu chia hết cho khác bạn thay số 3 thành số đó nhé!

*Chương trình tính tổng các số từ m đến n

uses crt;

var m,n,i,t:integer;

begin

clrscr;

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

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

t:=0;

for i:=m to n do 

  t:=t+i;

writeln(t);

readln;

end.

*Chương trình Đếm các số chẵn (lẻ), chia hết cho 3 từ M đến N.

uses crt;

var m,n,i,dem1,dem2:integer;

begin

clrscr;

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

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

dem1:=0;

dem2:=0;

for i:=m to n do 

  begin

if (i mod 2=0) and (i mod 3=0) then inc(dem1);

if (i mod 2<>0) and (i mod 3=0) then inc(dem2);

end;

writeln('So so chan chia het cho 3 la: ',dem1);

writeln('So so le chia het cho 3 la: ',dem2);

readln;

end.

program tich_2so;
uses crt;
var c, d: double;
begin
clrscr;
write('Nhap 2 so thuc c va d: ');
readln(c, d);
writeln('Tich cua c va d la: ', c * d:0:3);
end.

Câu 1: B

Câu 2: B

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

int a,b;

int main()

{

cin>>a>>b;

if (a==b) cout<<"Co";

else cout<<"Khong";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,a[1000],t;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

cin>>x;

t=0;

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

if (a[i]!=x) 

{

cout<<a[i]<<" ";

t+=a[i];

}

cout<<endl;

cout<<t;

return 0;

}