uses crt;

const tb=30000;

var tt, dg, sp: real;

ht, dc: string;

begin

clrscr;

write('Nhap ho ten khach hang: ');

readln(ht);

write('Nhap dia chi khach hang: ');

readln(dc);

write('Nhap don gia: ');

readln(dg);

write('Nhap so phut su dung: ');

readln(sp);

tt:=dg*sp+tb;

write('Quy khach phai tra: ',tt,' dong.');

readln

end.

Chúc em học tốt!

chấm mắm tôm đi o_O

k

i

Ai dk roi thi diem danh nha!!!

mik lam roi ak

Bài 1:

uses crt;
var n,kt,d,i:longint;
st:string;
begin
clrscr;
write('nhap n='); readln(n);
str(n,st);
kt:=0;
d:=length(st);
for i:=1 to d do
if (st[i]<>'4') and (st[i]<>'7') then kt:=1;
if kt=0 then write(n,' la so may man')
else write(n,' khong la so may man');
readln;
end.

cảm ơn bạn nha TT

Câu 2:

-Giống: Đều có tác dụng đọc dữ liệu

-Khác:

+Read: Đọc xong không xuống dòng

+Readln: Đọc xong rồi xuống dòng

Câu 3:

a) a*x*x*x+b*x*x*x+c*x+d

b) (4*sqr(x)-7*x-5)/(x-7)

c) (a+b)/(a-b)-(a-b)/(a+b)

Câu 4:

a) Integer;

b) Real;

c) Real;

Câu 1 bạn xem lại đề

không có quy tắc viết từ khóa trong pascal nhé bạn

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do 

if (4<a[i]) and (a[i]<15) then t:=t+a[i];

writeln(t);

readln;

end.

câu 2 bạn xem lại đề nhé

câu 1:

bước 1: nhập n

bước 2: t:=0; i:=2;

bước 3: t:=t+1/i; i:=i+1;

bước 4: nếu i<=n thì quay lại bước 3

bước 5: xuất t

bước 6: kết thúc

1 : có trong sgk

3:

a) b1: T←0;

B2: 1 → n ;

B3 : T:=T+1/(i*i) ;

B4: Kết thúc

var a:array[1..32000] of integer;

i,n,j,tam:integer;

begin

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

for i:=1 to n do

begin

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

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i] > a[j] then

begin

tam:=a[i]; a[i]:=a[j]; a[j]:=tam;

end;

writeln('ket qua sap xep la:');

for i:=1 to n do write(A[i]:5);

readln

end.

ờ nhưng tại sao kêu t tag vậy Hùng, m tag ko đc ak ?

@Nguyễn Trần Thành Đạt

Tú Nguyễn B (Erik) Trương Quang Dũng hành động đi các bạn, đây là sân chơi của các bạn, cộng đồng đang chờ bạn, gia đình chờ bạn, bạn bè chờ bạn ><