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.
uses crt;
var i,s:integer;
begin
clrscr;
s:=0; i:=1;
while s<2073 do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
var a:array[1..1000] of integer;
i,n,min:integer;
s:longint;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
s:=s+a[i];
end;
writeln('Tong la ',s);
min:=a[1];
for i:=2 to n do
if a[i] < min then min:=a[i];
write('Cac so chan la ');
for i:=1 to n do
if a[i] mod 2 = 0 then write(a[i]:8);
writeln;
write('so nho nhat la ',min);
readln
end.
b:
#include <bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
cin>>a>>b;
t=a+b;
cout<<t;
return 0;
}
uses crt;
var i,t:longint;
begin
clrscr;
t:=0;
for i:=1 to 2019 do
t:=t+i;
writeln(t);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,dem,max,t,min,dem1:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
max:=-32000;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
dem:=dem+1;
if max<a[i] then max:=a[i];
end;
if dem=0 then writeln('Trong day khong co so chan')
else begin
writeln('So so chan la: ',dem);
writeln('So chan lon nhat la: ',max);
end;
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+a[i];
writeln('Tong cac so o vi tri le la: ',t);
min:=maxint;
dem1:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
inc(dem1);
if min>a[i] then min:=a[i];
end;
if dem1=0 then writeln('Trong day khong co so le')
else writeln('So le nho nhat la: ',min);
readln;
end.
- Để lọc bảng dữ liệu trong Hình 1 để hiển thị chỉ các lớp khối 7 và khối 8, em có thể làm theo các bước sau:
+ Chọn bảng dữ liệu bằng cách nhấp vào một ô bất kỳ trong bảng.
+ Trên thanh menu, chọn "Data" và sau đó chọn "Filter".
+ Trên dòng tiêu đề của cột "Lớp", nhấp vào biểu tượng lọc (hình tam giác) để mở danh sách lọc.
+ Bỏ chọn hết các lớp khác khối 7 và 8 bằng cách nhấp vào ô "Select All" và sau đó bỏ chọn ô của các lớp không phải khối 7 và khối 8.
+ Nhấn nút "OK" để áp dụng bộ lọc.
- Lọc theo điều kiện để hiển thị chỉ các lớp có tỉ lệ số học sinh giỏi của lớp lớn hơn tỉ lệ học sinh giỏi của toàn trường.
+ Tính tỉ lệ số học sinh giỏi của toàn trường bằng cách chia tổng số học sinh giỏi cho tổng số học sinh và nhân với 100 để tính phần trăm, sử dụng hàm sum
+ Chọn bảng dữ liệu bằng cách nhấp vào một ô bất kỳ trong bảng.
+ Trên thanh menu, chọn "Data" và sau đó chọn "Filter".
+ Trên dòng tiêu đề của cột "Tỉ lệ (%)", nhấp vào biểu tượng lọc (hình tam giác) để mở danh sách lọc.
+ Chọn "Number Filters" và sau đó chọn "Greater Than" trong danh sách.
+ Trong hộp thoại "Custom AutoFilter", nhập tỉ lệ số học sinh giỏi của toàn trường vào ô "is greater than" và sau đó nhấn nút "OK".
+ Sau khi bộ lọc được áp dụng, chỉ các lớp có tỉ lệ số học sinh giỏi của lớp lớn hơn tỉ lệ học sinh giỏi của toàn trường sẽ được hiển thị trong bảng dữ liệu.
Bài 1:program sothuc;
uses crt;
var a:array[1..10] of real;s,i,j:real;
begin
s:=0;
for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;
for i:=1 to 10 do if a[i]<0 then
for j:=1 to 10 do
begin a[j]:=sqr(a[i]); s:=s+a[j]; end;
writeln('tong binh phuong cac so am la: ',s:2:2); readln;
end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)
Bài 2:
program soduong;
uses crt;
var a:array[1..100] of integer;s,i,n:integer;
begin
clrscr;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin
writeln('a[',i,']=');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i] end;
writeln('tong so duong trong day la',s:2:0);readln
end.
Bài 3: các số dương mà là số lẻ là sao thế bạn????
uses crt;
var i,s:integer;
begin
clrscr;
s:=0; i:=1;
while s<2073 do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.