Hồ Ánh Dương's Profile

uses crt;

var a,b,S:word;

begin

clrscr;

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

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

while a<>b do

begin

a:=a+1;

if (a mod 3=0) or (a mod 5=0) then

S:=S+a;

end;

write('Tong cac so chia het cho 3 va 5 la:',S);

readln

end.

Bài 1e:

Gọi x là chiều dài của HCN, y là chiều rộng của HCN

Chu vi của HCN là:(x+y)*2=80(m)

S của HCN sau khi tăng x lên 3m, y lên 5m:(x+3)(y+5)=xy+195(m)

Theo đề bài ta có hệ pt:

(x+y)*2=80

(x+3)(y+5)=xy+195

Giải hệ pt ra x=30,y=10(m)

B

x²-1-2 căn 2(x-1)

<=> (x-1)(x+1)-2 căn 2(x-1)

<=> (x-1)(x+1-2 căn 2)

=>x=1;-1+2 căn 2

uses crt;

var n:integer;

begin

clrscr;

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

write(n div 10,',',n mod 10);

readln

end.

Tam giác ABC , O là điểm nằm trong tam giác. Trêm OA, OB, OC lần lượt lấy M,N,P sao cho OM = 1/2 OA , ON = 1/3 OB , OP= 1/3 OC. CM : tam giác MNP đồng dạng với tam giác ABC

Bài 4:

uses crt;

var a,S:longint;

begin

clrscr;

writeln('Nhap so nguyen, nhan 0 de ket thuc');

repeat

readln(a);

S:=S+1;

until a=0;

write('Ban da nhap ',S,' so ');

readln

end.

Bài 2:

uses crt;

var i,n,S:longint;

begin

clrscr;

write('Nhap so nguyen N=');readln(n);

for i:=1 to n do 

begin

if (n mod i = 0) then

S:=S+1;

end;

writeln('Co ',S,' so la uoc cua ',n);

readln 

end.

 

uses crt;

var i,S,n:longword;

begin

clrscr;

write('Nhap so nguyen N=');readln(n);

for i:=1 to n do 

begin

if ( i mod 2 <> 0) then

S:=i*1;

end;

writeln('Tich cac so le la:',S);

readln

end.