Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đào Nguyên

viết phương trình pascal nhập vào số n có 6 chữ số kiểm tra và xuất ra màn hình tổng các chữ số của số đó, sử dụng lệnh lặp for.....do

Nguyễn Trung Hiếu
20 tháng 3 2022 lúc 7:34

uses crt;
var s,x,i:byte;
n: string;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to length(n) do begin
val(n[i],x); inc(s,x); end;
write('Tong cac chu so cua so do la: ',s);
readln
end.


Các câu hỏi tương tự
Minh Ngọc
Xem chi tiết
Thư Uyên
Xem chi tiết
Bảo Trâm
Xem chi tiết
Bảo Trâm
Xem chi tiết
Nguyễn Gia Huy
Xem chi tiết
huy hoàng
Xem chi tiết
Kim Chi
Xem chi tiết
thanh mai
Xem chi tiết
Minh Đông
Xem chi tiết