Lập trình đơn giản

Lynnie Jeon

Các cậu giúp tớ với ạk

Đề Bài: Nhập số thực N. Tìm phần nguyên có bao nhiêu chữ số rồi in ra màn hình chữ số lớn nhất ( đây là đề học bồi dưỡng Hoá lớp 8...không dùng C/C++ ạ)

Minh Lệ
22 tháng 7 2020 lúc 21:58

Program HOC24;

var n: real;

m,max: integer;

begin

write('Nhap so thuc N : '); readln(n);

n:=trunc(n);

max:=0;

while n<>0 do

begin

m:=n mod 10;

if m>max then max:=m;

n:=n div 10;

end;

write(max);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Thảo Nguyên 36-88
Xem chi tiết
Phan Đức Duy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Nguyễn Thùy Chinh
Xem chi tiết
Quỳnh
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
duyy
Xem chi tiết
ytkc
Xem chi tiết