danh hiệu HS bằng pascal
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (20.11 KB, 1 trang )
program xeploaiHS;
var dtbcm:real;hk:integer;
begin
writeln(' nhap vao dtbcm');readln(dtbcm);
writeln(' nhap vao hk');readln(hk);
if(dtbcm>=8)and ( hk=1) then
begin
writeln('hs gioi');readln;
end
else if(dtbcm>=8) and (hk=2) then
begin
writeln('hsTT');readln;
end
else if(dtbcm>=8) and(hk=3) then
begin
writeln('hsTB');readln;
end
else if(dtbcm>=6.5) and(hk=1) then
begin
writeln('hsTT');readln;
end
else if(dtbcm>=6.5) and(hk=2) then
begin
writeln('hsTT');readln;
end
else if(dtbcm>=6.5) and(hk=3) then
begin
writeln('hsTB');readln;
end
else if(dtbcm>=5) and(hk=1) then
begin
writeln('hsTB');readln;
end
else if(dtbcm>=5) and(hk=2) then
begin
writeln('hsTB');readln;
end
else
writeln('hsYeu');readln;
end.
end.
