uses crt;
var lt:real;
i,n,x:integer;
begin
clrscr;
x:=2;
n:=64;
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln('ket qua la: ',lt-1:4:2);
readln;
end.

Trúc chó : Đúng nhé.

Bài 2:

Program hotrotinhoc;

var i: byte;

begin

write('5 so tu nhien dau tien la : ');

for i:=0 to 4 do write(i,' ');

readln

end.

Bài 3:

Program hotrotinhoc;

var n,i: integer;

s: real;

begin

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

i:=0;

while i<n do

begin

inc(i);

s:=s+1/i;

end;

write('S=',s:1:2);

readln

end.

Me too :))

Hùng Nguyễn Vậy hả

Cảm ơn nhiều nhé

Mình vẫn chưa hiểu là tại sao là x=7 y=5. Bạn giải thích hộ mình được không. Mình cảm ơn nhiều

cái này giải thích dài lắm

Câu a: Đúng

Câu b: Sai vì biến có số 4

Câu c: Sai vì khai báo biến mà lại sử dụng từ khóa khai báo hằng

Câu d: Sai vì khai báo hằng mà lại sử dụng từ khóa khai báo biến

Bài 1 :

Program dien_tích_tamgiac;

Var a , h . Read;

Begin

Write ('nhap a ='); Readln (a);

Write ('nhap chieu h ='); Readln (h);

Writeln ('dien tich tam giac la:'S=1/2*a*h:4:2);

Readln;

End.

Bài 2 :

var a,b,c,i:integer;

MX,MN:real;

begin

write('nhap a'); readln(a);

write('nhap b'); readln(b);

write('nhap c'); readln(c);

MX:=a; MN:=a;

if MX<b then MX:=b;

if MX<c then MX:=c;

if MN>b then MN:=b;

if MN>c then MN:=c;

writeln('Min=',MN);

writeln('Max=',MX);

readln;

end.

a)

-Lỗi sai: begin là biến

-Sửa lỗi: Var a:real;

-Giải thích: Biến trùng với từ khóa là sai nguyên tắc đặt tên biến trong pascal

b)

-Lỗi sai:

+ Có dấu: giữa chữ y và integer

+ Gán giá trị hằng số y là một kiểu dữ liệu

-Sửa lỗi: Const y=10;

-Giải thích: Sai cú pháp hằng

Lỗi sai mình đóng trong ngoặc và in đậm nhé.

a, Var begin:real;

---> Lỗi sai : Var (begin):real;

---> Sửa lỗi : Var begi : real;

---> Giải thích lỗi sai : Khai báo biến trùng với từ khóa

b) Const y:integer;

---> Lỗi sai : Const y(:)integer;

---> Sửa lỗi : Const y=integer;

---> Giải thích: sai cú pháp khai báo hằng

c) Var bk=3

---> Lỗi sai : (Var) bk=3

---> Sửa lỗi : Const bk=3

---> Giải thích : Khai báo hằng nhưng lại dùng từ khóa khai báo của biến

d) Var AB:array[1...100] of integer;

---> Lỗi sai : Var AB:array[1..(.)100] of integer;

---> Sửa lỗi : Var AB:array[1..100] of integer;

---> Giải thích : sai cú pháp khai báo mảng

e) Var Diem: array[3.8..4.5] of real;

---> Lỗi sai : array[(3.8)..(4.5)] of real;

---> Sửa lỗi : array[3..5] of real;

---> Giải thích:

Cú pháp khai báo mảng là: var <biến mảng> ; array[<giá trị đầu>..<giá trị cuối>] of <kiểu dữ liệu>;

Trong đó giá trị đầu và giá trị cuối là kiểu dữ liệu số nguyên.

Giá trị của biến j là 1