Cho dãy 2;5;8;11;14;.....;107;110
a,Hãy tính tổng của dãy trên
b,Số 56;75;115; có thuộc dãy trên không ? Nếu thuộc nó là số hạng thứ bao nhiêu của dãy.
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.
Câu 1:
uses crt;
var b:array[1..100]of real;
i,n:integer;
min:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
min:=b[1];
for i:=1 to n do
if min>b[i] then min:=b[i];
writeln('Gia tri nho nhat la: ',min:4:2);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,j,tam:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
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 giam dan la: ');
for i:=1 to n do write(a[i]:4);
readln;
end.
Tiếng Việt không dấu như ăn cơm không có canh
Người Việt đọc tưởng tiếng Tây, Tây đọc không hiểu
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2=0 then write(i:4);
writeln;
for i:=1 to n do
if i mod 2=1 then write(i:4);
readln;
end.