1246uy3nh4ck3r2000
Thành viên
- Tham gia
- 27/10/2012
- Bài viết
- 2
Đây cũng là một chương trình pascal cua mình làm không compile được. Bạn nào giúp mình tiếp đi.
use crt;
use crt;
var N: integer;
M, X, Y, Z, T, S: char;
begin
clrscr
writeln('Chon mot so tu den 9');
writeln('So do co chia het cho 2 khong? (Ghi yes hoac no): ');
readln(M);
if M='yes' then
begin
writeln('So do co chia het cho 8 khong? (Ghi yes hoac no): ');
readln(X);
if X='yes' then writeln('So ban chon la so 8') else
begin
writeln('So do co chia het cho 6 khong? ( Ghi yes hoac no): ');
readln(Y);
if Y='yes' then writeln('So ban chon la so 6')
else writeln('So ban chon la so 4');
else writeln('So do co chia het cho 3 khong? (Ghi yes hoac no): ');
readln(Z);
if Z='yes' then
begin
writeln('So do co chia het cho 9 khong? (Ghi yes hoac no): ');
readln(T);
if T='yes' then writeln('So ban chon la so 9')
else writeln('So ban chon la so 3');
else writeln('So do co chia het cho 7 khong? (Ghi yes hoac no): ');
readln(S);
if S='yes' then writeln('So ban chon la so 7')
else writeln('So ban chon la so 5');
readln;
end.