Program HOC24;
var n: longint;
d,max: byte;
begin
write('Nhap n: '); readln(n);
max:=0;
while n<>0 do
begin
d:=n mod 10;
if d>max then max:=d;
n:=n div 10;
end;
write('Chu so lon nhat la: ',max);
readln
end.
Program HOC24;
var n: longint;
d,max: byte;
begin
write('Nhap n: '); readln(n);
max:=0;
while n<>0 do
begin
d:=n mod 10;
if d>max then max:=d;
n:=n div 10;
end;
write('Chu so lon nhat la: ',max);
readln
end.
Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.
a. In ra màn hình giá trị của các phần tử vừa nhập
Tính tổng các số vừa nhập và in kết quả ra màn hình
Câu 14: Viết chương trình n là số nguyên nhập từ bàn phím in ra các số lẻ ra màn hình ?
Giúp mik với mọi người. mik cần gấp .
nhập mã gồm n số nguyên từ bàn phím ,xuất mãng vừa nhâp ,tìm và in ra giá trị lớn,bé nhất trg mãng
viết chương trình nhập vào một dãy số nguyên . số phân tử của dãy được nhập từ bàn phím a, in ra dãy số vừa nhập ra màn hình b, tính tổng các phân tử dương có trong dãy số
Mô tả thuật toán và viết chương trình nhập vào 2 số nguyên m và n từ bàn phím in ra kết quả m chia hết cho n và m không chia hết cho n
câu này làm thế nào mn ơi
giúp em với
Viết chương trình nhập vào một dãy số a có n phần tử nhập vào từ bàn phím in ra màn hình các phần tử lớn hơn 5 của dãy số vừa nhập vào?
Viết CT nhập từ bàn phím 3 số nguyên dương A, B, C. In ra màng hình số nhỏ nhất.
làm dùm mik nha <3
5. Viết chương trình a. Viết chương trình nhập và in ra 1 mảng gôm 40 phần tử kiểu số nguyên b. Viết chương trình nhập vào 1 mảng n số thực và in ra mảng đó ( với n là sô nguyên được nhập từ bàn phím và 0
viết chương trình nhập vào dãy gồm n số nguyên từ bàn phím. in ra giá trị của những phân tử âm