Bài 8. Lặp với số lần chưa biết trước

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

VIet ct nhao vao so nguyen duong

a. SO nguyen duong co bao nhieu chu so

b.Tinh tong cac so do

c.IN ra so lon nhat

Nguyễn Lê Phước Thịnh
19 tháng 6 2020 lúc 20:22

uses crt;

var n,i,t,x,max:integer;

st:string;

a:array[1..255]of integer;

begin

clrscr;

repeat

write('N='); readln(n);

until n>0;

str(n,st);

writeln('So chu so cua ',n,' la: ',length(st);

t:=0;

for i:=1 to length(st) do

begin

val(st[i],a[i],x);

t:=t+a[i];

end;

writeln('Tong cua cac chu so cua ',n,' la: ',t);

max:=0;

for i:=1 to d do

if max<a[i] then max:=a[i];

writeln('So lon nhat la: ',max);

readln;

end.


Các câu hỏi tương tự
Duongtrucqui
Xem chi tiết
Duongtrucqui
Xem chi tiết
Minh Vũ
Xem chi tiết
Văn Thành Long
Xem chi tiết
Võ Hoàng Ngọc
Xem chi tiết
Bao An Nguyen Thien
Xem chi tiết
Bao An Nguyen Thien
Xem chi tiết
Cao Thị Minh Vui
Xem chi tiết
Tạ Quang Minh
Xem chi tiết