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.
3; 6; 9; 12; 15; 18; 21; 24; 27; 30; 33; 36; 39; 42; 45; ... ; 120; 123.
Số số hạng:
(123 - 3) : 3 + 1 = 41 số
Số hạng thứ 15 là 45 và 45 \(⋮\) 5
Cái đó người ta gọi là toán-tin. Kiểu giải toán bằng các lệnh trên máy tính.
uses crt;
var a:array[1..15]of integer;
n:integer;
begin
clrscr;
n:=1;
a[1]:=3;
repeat
n:=n+2;
a[n]:=a[n-1]+3;
until a[n]>40;
for i:=1 to n-1 do
write(a[i]:4);
readln;
end.
1: nhập vào một mảng A gồm N số nguyên
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
2: in ra màn hình số đầu tiên số thứ hai ...số thứ n của dãy
for i:=2 to n do
write(a[i]:4);
3: sắp xếp theo thứ tự tăng dần hoặc giảm dần in ra dãy số đã sắp xếp
*Tăng dần:
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;
for i:=1 to n do
write(a[i]:4);
*Giảm dần:
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;
for i:=1 to n do
write(a[i]:4);
4: Tìm max ,min
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
5: Đếm xem mảng có bao nhiêu số chẵn, số lẻ
dem:=0;
dem1:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem)
else inc(dem1);
end;
writeln('So luong so chan la: ',dem);
writeln('So luong so le la: ',dem1);
sh thứ 100 là 100x101x102
sh thứ n là nx(n+1)x(n+2)
đúng 100%