Viết chuong trình nhập vào một số n. in ra chữ số lớn nhất trong số vừa nhập. pascal Làm bằng kiến thức lớp 8 nhé Mk cần gấp nên điểm cao Ai là nhanh và đúng nhất mk sẽ vote!Thank!
2 câu trả lời
uses crt,math;
var n,m:integer;
begin
clrscr;
readln(n);
while n <> 0 do
begin
if m < n mod 10 then
m:=n mod 10;
n:=n div 10;
end;
writeln(m);
readln;
end.
uses crt;
var n:string;
ans:char;
i:longint;
begin
clrscr;
readln(n);
ans:=n[1];
for i:=2 to length(n) do
if(ord(n[i]) > ord(ans)) then ans:=n[i];
write(ans);
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
