2/

program bang_cuu_chuong

uses crt;

var n,i:integer;

begin

clrscr;

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

for i:=1 to 10 do

writeln(n,' x',i:2,' = ',n*i:2);

readln;

end.

program bang_cuu_chuong;

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to 10 do

writeln(n,' x',i:2,' = ',n*i:2);

readln;

end.

program tong;

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do

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

write('tong la:',s:0:2);

readln;

end.

Cho các nhận xét sau:

(1) Đa số các polime dễ hòa tan trong các dung môi hữu cơ thông thường.

(2) Poli(vinyl clorua), poliacrilonitrin, poli(metyl metacrylat) là những polime có tính dẻo.

(3) Hầu hết các polime là chất rắn, không bay hơi, khi nóng chảy thì bị phân hủy.

(4) Các polime có thể có các cấu trúc mạch không phân nhánh; mạch phân nhánh hoặc mạng không gian.

Trong số các nhận xét trên, số nhận xét đúng là

A. 4.                      

B. 2.                       

C. 1. 

D. 3.

uses crt;

var n,i,d,j:integer;

a:array[1..20] of integer;

begin

clrscr;

write('Nhap so phan tu cua day:');

readln(n);

while (n>20) do

begin

write('nhap lai so phan tu cua day thoa man toi da la 20 phan tu:');readln(n);

end;

for i:=1 to n do

begin

write('a[',i,'] =');readln(a[i]);

end;

for i:=1 to n do

begin

d:=0;

for j:=1 to a[i] do

if a[i] mod j = 0 then d:=d+1;

if d=2 then writeln(a[i],' la so nguyen to');

end;

readln;

end.

uses crt;

var n,i,s,dem:integer;

begin

clrscr;

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

s:=0; dem:=0; i:=0;

while dem<=n do

begin

if i mod 2 =0 then

begin

s:=s+i;

dem:=dem+1;

i:=i+1;

end

else i:=i+1;

end;

write(s);

readln;

end.