Tin học Pascal

[hnhu4922@gmail.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1/Một số có 3 chữ số nếu bớt số đó đi cho 7 thì được số chia hết cho 7, nếu bớt số đó đi cho 8 thì được số chia hết cho 8. Viết chương trình tìm số đó.
2/Hãy cộng tất cả các chữ số của 1 số nguyên dương N cho trước đến khí kết quả là 1 số có 1 chữ số thì kết thúc ( viết chương trình)

 

[Elishuchi]

bớt số đó đi cho 7 thì được số chia hết cho 7

đoạn này anh đọc ko hiểu lắm em có test ko cho anh xem với

2/Hãy cộng tất cả các chữ số của 1 số nguyên dương N cho trước đến khí kết quả là 1 số có 1 chữ số thì kết thúc ( viết chương trình)

cái này không biết có giới hạn N không em nhỉ?
Nếu không thì 1 vòng while là ok thôi hoặc em dùng repeat...until cũng được
Em cập nhật cụ thể về đề nhé!

 

[hnhu4922@gmail.com]

đoạn này anh đọc ko hiểu lắm em có test ko cho anh xem với

cái này không biết có giới hạn N không em nhỉ?
Nếu không thì 1 vòng while là ok thôi hoặc em dùng repeat...until cũng được
Em cập nhật cụ thể về đề nhé!

 

[Elishuchi]

View attachment 197648

16.
Va

var n,tong:longint;
begin
      readln(n);
      while n>9 do
       begin
           tong:=0;
           while n<>0 do
            begin
                     tong:=tong+ n mod 10;
                      n:=n div 10;
            end;
            n:=tong;
        end;
write(n);
readln;
end.

 

[hnhu4922@gmail.com]

Sao em nhập vào rồi chạy thử thấy hơi kì ạ( có vẻ sai sai

16.
Va

var n,tong:longint;
begin
      readln(n);
      while n>9 do
       begin
           tong:=0;
           while n<>0 do
            begin
                     tong:=tong+ n mod 10;
                      n:=n div 10;
            end;
            n:=tong;
        end;
write(n);
readln;
end.

 

[Elishuchi]

Sao em nhập vào rồi chạy thử thấy hơi kì ạ( có vẻ sai sai

a viết tay thôi nên cx chưa thử ko biết nó báo lỗi j v em?

 

[hnhu4922@gmail.com]

a viết tay thôi nên cx chưa thử ko biết nó báo lỗi j v em?

Dạ không phải lỗi mà em thấy kq nó không đúng lắm ạ

16.
Va

var n,tong:longint;
begin
      readln(n);
      while n>9 do
       begin
           tong:=0;
           while n<>0 do
            begin
                     tong:=tong+ n mod 10;
                      n:=n div 10;
            end;
            n:=tong;
        end;
write(n);
readln;
end.

a chỉ em bài 19 20 với ạ :3

 

[Elishuchi]

Dạ không phải lỗi mà em thấy kq nó không đúng lắm ạ

a chỉ em bài 19 20 với ạ :3

để lúc nào anh rảnh đi
Gửi kết quả anh xem nào

 

[hnhu4922@gmail.com]

a xem giúp em, em làm bài 15 đúng không ạ?

 

[hnhu4922@gmail.com]

để lúc nào anh rảnh đi
Gửi kết quả anh xem nào

 

[Elishuchi]

View attachment 197682

đúng còn j em ơi em ko hiểu đề mất r
5+6=11
1+1=2

 

[hnhu4922@gmail.com]

đúng còn j em ơi em ko hiểu đề mất r
5+6=11
1+1=2

Dạ em hiểu rồi, cảm ơn anh nha~ ( em cứ tưởng 5+6=11:v)