1. Bạn thử đổi thành kiểu dữ liệu integer sẽ hợp lí hơn .
2. Dòng thứ 11 bạn bị thiếu dấu ; theo ý kiến của mình thì k cần thiết phải để begin end chỗ đó dou , bởi vì chỉ có 1 câu lệnh trong đó thôi .
SE Free Pascal
Run Compile Debug Tools Options Window Help
tinh so du k.pas
File Edit Search
uses crt;
var k,b,c:longint;
Bušin begin
clrscr;
c: =0;
writeln('Nhap so tu 1 den 10: '); readln(k);
if k<1 or k>10 then writeln('Da bao la nhap so tu mot toi 10 ma :<')
else
begin
for b:=1 to ...
1596
34415
1747
Mình chạy ct nó bảo đúng r á
3
126
3
ui cảm ơn bạn nhiều nha, mình sai nhiều lỗi cơ bản quá ;-;
1596
34415
1747
Lúc đầu ai cũng phải sai thôi, từ từ rút kinh nghiệm lần sẽ giỏi hơn đấy
3
126
3
nó lại báo Syntax error, ";" expected but "identifier WRITELN" found
3
126
3
huhu ;-;
3
126
3
go to source thì nó chỉ cái writeln dòng cuối á
1596
34415
1747
Bạn kiểm tra lại thử bạn thiếu dấu chấm phẩy ở đâu k, chớ mình chạy ct nó đâu cs lỗi đâu
3
126
3
Uki cảm ơn bạn nhiều, tui mới viết ct lần thứ 2 nên lỗi quá ;-;