Viết chương trình tách số pascal

Nội dung chính Show

Viết chương trình tách số n theo chiều từ trái sang phải pascal
Answers ( )
Leave an answer
TRẢ LỜI
TRẢ LỜI

Mtrend News
- Mtrend Music
- Mtrend Thời Trang
- Ảnh đẹp
- Món Ngon Mỗi Ngày
- Kiến thức máy tính
- Kiến thức Xã Hội
- Mtrend MMO
- Kiến thức Moba
  - Liên Minh Huyền Thoại
  - Liên Quân Mobile
Phong thủy
- Xem tử vi
- Giải mã giấc mơ
Góc Review
- Skincare
- Thực phẩm chức năng

Viết chương trình tách số n theo chiều từ trái sang phải pascal

Question

Viết chương trình tách số n theo chiều từ trái sang phải pascal

in progress 0

Tin học Isabelle 4 tháng 2021-08-22T00:20:37+00:00 2021-08-22T00:20:37+00:00 2 Answers 2 views 0

Answers ( )

Lâu mình chưa code pascal, sai lỗi nhỏ xin thông cảm 🙂
Var n : Integer,
Pow: Integer;
BEGIN
Readln(n);
Pow := 1;
While pow <= n do Pow := Pow * 10;
Pow := Pow div 10;
While (Pow > 0)
Begin
Writeln(n div Pow, ‘ ‘);
n := n mod Pow;
Pow := Pow div 10;
End;
END.
Cách khá bựa :V
program xau;
uses crt;
var n:string;
i:integer;
begin
clrscr;
write(‘Nhap so n: ‘); readln(n);
for i:=1 to length(n) do writeln(n[i]);
readln;
end.

Leave an answer

Isabelle

thuhq241108
Chưa có nhóm

Trả lời
77
Điểm
1139
Cảm ơn
53

Tin Học
Lớp 8
10 điểm
thuhq241108 - 13:48:18 12/09/2021

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!

TRẢ LỜI

dovanhung
Chưa có nhóm

Trả lời
1212
Điểm
30626
Cảm ơn
1092

dovanhung

12/09/2021

uses crt;
var s:string;
i,k,t:longint;
begin
clrscr;
readln(s);
t:=0;k:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then
k:=k*10 + ord(s[i]) - 48
else
begin
t:=t+k;
k:=0;
end;
writeln(t+k);
readln;
end.