viett cau lenh for in ra cac so tu N den M
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
4 tháng 3 2018
1. Không đưa câu hỏi linh tinh lên diễn đàn, chỉ đưa các bài mà mình không giải được hoặc các câu hỏi hay lên diễn đàn;
2. Không trả lời linh tinh, không phù hợp với nội dung câu hỏi trên diễn đàn.
3. Không "Đúng" vào các câu trả lời linh tinh nhằm gian lận điểm hỏi đáp.
Các bạn vi phạm 3 điều trên sẽ bị giáo viên của Online Math trừ hết điểm hỏi đáp, có thể bị khóa tài khoản hoặc bị cấm vĩnh viễn không đăng nhập vào trang web.
27 tháng 6 2020
uses crt;
var a,b:array[1..100]of integer;
n,i,dem,max,tam,j:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chia het cho 4 la: ');
for i:=1 to n do
if a[i] mod 4=0 then write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i] mod 7=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
max:=b[1];
for i:=1 to dem do
if max<b[i] then max:=b[i];
writeln('So lon nhat chia het cho 7 la: ',max);
writeln('Cac chi so cua no trong day A la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day so sau khi sap xep giam dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.
11 tháng 7 2018
cau co cau hoi giong to day tuyet nhung cau nay kho qua nhi
17 tháng 9 2019
Từ trang 1 đến trang 9 An phải đánh tất cả số trang là :
( 9 - 1 ) + 1 = 9 ( chữ số )
Từ trang 10 đến trang 99 bạn dùng tất cả số chữ số là :
[ ( 99 - 10 ) + 1 ] × 2 = 180 ( chữ số )
Từ trang 100 đến trang 119 phải sử dụng tất cả số chữ số là :
[ ( 119 - 100 ) + 1 ] × 3 = 60 ( chữ số )
Phải dùng tổng cộng :
9 + 180 + 60 = 249 ( chữ số )
Đáp số : 249 chữ số
10 tháng 3 2015
thứ 5 mình cũng đi thi violympic lớp 6!
bạn lấy đe ở đâu thế
11 tháng 3 2015
minh in tren mang de nam 2012-2013, ban giai gium minh voi nhe,may bai nay kho qua
uses crt;
var i,n,m:integer;
begin
clrscr;
readln(n,m);
for i:=n to m do write(i:4);
readln;
end.