Bài 2:

*Xác định bài toán :

input : a,b;

output: P(chu vi), S( diện tích);

*Mô tả thuật toán :

B1: S <- a*b;

B2: P <-(a+b)*2;

B3: In và kết thúc.

*Viết chương trình:

Program Chu_Nhat_Program;
Uses Crt;
Var a,b,S,P: real;
Begin
Clrscr;
Write ('Nhap chieu dai ='); readln(a);
Write ('Nhap chieu rong ='); readln(b);
S:=a*b;
P:=(a+b)*2;
Writeln ('Dien tich hinh chua nhat =',S:4:2);

Writeln ('Chu vi hinh chu nhat =',P:4:2);

Readln;

End.

Program bai1;

uses crt;

var T: real;

begin

clrscr;

write('nhap T ='); readln(T);

if T > 10000 then writeln('so tien thanh toan la : ' ,0.7*T:4:2 ,' VND')

else

writeln('so tien thanh toan la :' ,0.9*T:4:2 , ' VND');

readln;

end.

Gọi số cần tìm là a  

Do a chia 5 dư 1 nên a-1 chia hết cho 5  

Mà 10 chia hết cho 5 nên a- 1 + 10 chia hết cho 5  

=> a+9 chia hết cho 5 (1)

 Do a chia 7 dư 5 nên a-5 chia hết cho 7  

Mà 14 chia hết cho 7 nên a- 5 + 14 chia hết cho 7  

=> a+9 chia hết cho 7 (2)  

Từ (1) và (2) suy ra a+9 là bội của 5 và 7  

mà a nhỏ nhất nên a+9 = BCNN (5; 7) = 35  

=> a = 26

Vậy số phải tìm là 26 

bài 2:

Program bai2;

uses crt;

var n,i: integer;

s: real;

begin

clrscr;

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

s:=0;

for i:= 1 to n do

s:=s+exp(n*ln(i));

writeln('tong =',s :4:2);

readln;

end.

Program bai1;

uses crt;
var i,x,a,kq:longint;
Begin
clrscr;
writeln('Chuong trinh tinh X^a');
write('X=');readln(x);
write('a=');readln(a);
kq:=1;
for i:=1 to a do
kq:=kq*x;
writeln(x,'^',a,'=',kq:4);
readln;
end.

Bài 3:

Bài 2:

Program bai2;

uses crt;
var a,b,kq: real;
pt: char;
begin
clrscr;
write('Nhap 2 so a, b: ');
readln(a,b);
writeln ('Nhap phep tinh can thuc hien: ');
readln(pt);
case pt of
'+' : kq:=a+b;
'-' : kq:=a-b;
'*' : kq:=a*b;
'/' : kq:=a/b;
end;
write('Ket qua: ',kq:0:2);
readln ;
end.

bài 1;

Program bai1;

uses crt;

var tienxe: real;

a: integer;

begin

clrscr;

write('nhap so km ='); readln(a);

if a <= 1 then tienxe:=13000*a

else

if a <= 30 then tienxe:=13000*1+12000*(a-1)

else

tienxe:=13000*1+29*12000+(a-30)*11000;

writeln('so tien xe phai tra la : ' ,tienxe:9:0,'VND');

readln;

end.

Chúc bạn học tốt !

Program bai1;

uses crt;

var n,i,s: integer;

begin

clrscr;

write('nhap so n =');

readln(n);

s:=0;

for i:= 2 to n-1 do

if i mod 2 = 0 then s:=s+i;

writeln ('tong cac so chan nho hon n =' ,s :4);

readln;

end.

CT xác định tam giác vuông :

if (a*a = b*b+c*c) or (b*b =a*a+c*c) or (c*c = a*a+b*b) then write('la tam giac vuong');