Question

[Nguyễn Khánh Huy]

Bài 1: hãy chỉ ra lỗi sai và sửa lại?

Program thu-nghiem

uses crt;

write (`Xin chao cac ban`);

write (`Hay hoc hanh cham chi`);

readln

end

Bài 2 Hãy cho biết giá trị của y bằng bao nhiêu? giải thích?

var x: integer;

y: real;

begin

x:=225 div 9;

y:=(4+8*(9-5))/2-((4-5)^2+6)*15/5;

y:=y-x;

y:=x/y;

readln

end.

Bài 3 Hãy cho biết giá trị của x bằng bao nhiêu? Giải thích?

var y:integer;

x:=real;

begin

x:=(8*4+(5-3))*(9+6)/(3*2-4)

y:=18 mod 5;

x:=x*y;

x:=x-y:

readln

end.

Answer 1

[VĂN LƯƠNG NGỌC DUYÊN]

Program thu-nghiem

uses crt;

write (`Xin chao cac ban`);

write (`Hay hoc hanh cham chi`);

readln

end

Sửa:

Program thunghiem;

uses crt;

writeln (`Xin chao cac ban`);

writeln (`Hay hoc hanh cham chi`);

readln;

end.

Answer 2

[VĂN LƯƠNG NGỌC DUYÊN]

Góp ý nha!