Hình 1: Chương trình
Hình 2: Chạy thử
progam chuso_max;
uses crt;
var n:longint;
max:byte;
begin
clrscr;
write('Nhap so: '); readln(n);
max:=0;
while n>0 do
if n mod 10>max then max:=n mod 10;
n:=n div 10;
end;
write('Chu so lon nhat la: ',max);
readln;
end.
Viết bài văn chứng minh lòng yêu nước của nhân dân ta trong thời kì chống dịch ( BÀI VĂN ) Chứng minh rằng lòng biết ơn giúp chúng ta sống tốt đẹp hơn. ( BÀI VĂN NHA ) Làm cả 2 đề cũng đc, mà làm 1 đề cũng đc Không mạng Không spam Không copy của người khác Vì bài này để mik đi thi Vi phạm những điều trên sẽ bị báo cáo.
Khu vực Bắc Mỹ - Thên nhên ( Bắc mỹ, trung và nam mỹ ) - Kynh tế ( Nông nghệp ) - Xã hộ- : ( tố chức Kynh tế )
cho ví dụ về vai trò và nhiệm vụ trồng rừng
hãy giải thích hiện tượng vì sao càng lên cao nhiệt độ càng giảm
thuyết trình về món bánh xèo và bánh khọt
Cho một bãi mìn có kích thước 12x12. Chọn 2 điểm bất kì trên bãi mìn. Cứ mỗi giây các điểm này sẽ loang ra các ô xung quanh nó cho đến khi có ít nhất 1 điểm giao nhau thì mìn sẽ nổ. Viết chương trình Free Pascal Dùng câu lệnh If....Then.... để tính số giây hai điểm mìn giao nhau.
hứa vote đủ và ctlhn,mình đang cần gấp
Tính nhanh 28.127+73.86-74.27+86.27
45 phút đổi ra phân số là bao nhiêu
Giải hộ mình n+3 A=--------------------- n+1 A ∈ Z, A ∉ -1 Để cho A là 1 số nguyên
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
