bạn ấn vào đúng 0 sẽ ra kết quả mình làm bài này rồi dễ lắm

and i am Nam i am a student at Thống Nhất secondary school . I am very good at english 

2O: 2 nguyên tử O;

3CO₂: 3 phân tử CO₂.

 ab(a+b) + bc(b+c) + ca(c+a) = a^2b + ab^2 + b^2c + bc^2 + ca(c+a) + 2abc 
= ab^2 + b^2c + a^2b + bc^2 + 2abc + ca(c+a) 
=b^2(a+c) + b(a^2 + c^2 + 2ac) + ca(c+a) 
=b^2(a+c) + b(a+c)^2 + ca(c+a) 
=(c+a)[b^2 + b(a+c) + ca] 
=(c+a)[b^2 + ab + bc + ca] 
=(c+a)[b(b+a) + c(b+a)] 
=(c+a)(b+c)(b+a) 

Tìm các số tự nhiên x vừa chia hết cho 2 vừa chia hết cho 5 và 1998 < x < 2018.

A. x∈{2010}

B. x∈{2000;2010}

C. x∈{2010}  

D. x∈{1990;2000;2010}

uses crt;

var x,y:string;a,i,c:integer;

begin

clrscr;

write('Input: ');readln(x);

for i:=length(x) downto 1 do y:=y+x[i];

val(y,a,c);

write('Output: ',a mod 19);

readln

end.

uses crt;

var n:integer;

begin

clrscr;

write('Nhap so tu nhien N: '); readln(n);

while n div 10 > 0 do n:=n div 10;

write('Chu so dau tien cua so N la: ',n);

readln;

end.

làm thế nào để vẽ được hình vậy

program Bai_1;

uses crt;

var n,i:integer; s:real;

begin

clrscr;

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

for i:=1 to n do s:=s+1/(2*i);

write('S=',s);

readln;

end.

program Bai_2;

uses crt;

var n,i:integer; gt:longint; s:real;

begin

clrscr;

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

gt:=1;

for i:=1 to n do

begin

gt:=gt*i;

s:=s+1/gt;

end;

write('S=',s);

readln;

end.

program Tinh_tong;

uses crt;

var a,b,c:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c=',a+b);

readln;

end.