Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Câu 1 :
a) (a+b)*(a+b)*(d+e)
b) a*x*x+b*x*x+c*x
Câu 2: Mình không hiểu đề lắm? Đặt cái gì cơ?
Câu 3:
Uses crt;
Var S,a,b:real;
Begin
clrscr;
Writeln('Nhap chieu dai a = '); Readln(a);
Writeln('Nhap chieu rong b = '); Readln(b);
S := a*b;
Write('Dien tich hinh chu nhat la ', S );
Readln;
End.
xin lỗi mk lộn nêu qui tắc đặt ngôn ngữ lập trình trong pascal
1B 4C
2A 5A
3C 6C
7.
program TBC;
uses crt;
var a,b,tbc:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
tbc:=(a+b):2;
writeln('tbc cua hai so a va b la:',tbc:6:2);
readln;
end.
uses crt;
var a,b,c,d:real;
i,j,n:integer;
begin
clrscr;
a:=1;
i:=5;
while i<=40 do
begin
a:=a*i;
i:=i+1;
end;
writeln('A=',a:0:0);
b:=0;
i:=15;
while i<=170 do
begin
b:=b+i;
inc(i);
end;
writeln('B=',b:0:0);
j:=-20;
c:=0;
while j<=50 do
begin
c:=c+j;
inc(j);
end;
writeln('C=',c:0:0);
write('Nhap n='); readln(n);
d:=0;
i:=1;
while i<=n do
begin
d:=d+1/i;
inc(i);
end;
writeln('D=',d:4:2);
readln;
end.
câu 1:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)
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