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 n,i,kt,j:longint;
begin
clrscr;
repeat
write('n='); readln(n);
if n<=2 then writeln('vui long nhap lai');
until n>2;
writeln('cac so nguyen to nho hon so ',n,' la: ');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
program cachkhac;
var i,N: integer;
function KT(a: integer): boolean;
var j: integer;
begin
nt:=false;
if j<=1 then exit;
for j:=2 to trunc(sqrt(a)) do if a mod j=0 then exit;
nt:=true;
end;
Begin
Write('Nhap so nguyen N=');
Readln(N);
For i:=1 to n do
If nt(i) then write(i,' ');
Readln
end.
câu(1) và (2) đã trả lời rồi còn câu (3) mk trả lời nốt.
-Cách sao chép dữ liệu:
+)Cách 1: Sao chép bằng cặp lệnh Copy-Paste:
B1: Chọn ô tính hoặc các ô tính nguồn( là các ô tính có dữ liệu hoặc công thức cần sao chép)
B2: Nháy chọn nút lệnh Copy
B3: Chọn ô tính đích( là ô đầu tiên trong khối nhận dữ liệu sao chép)
B4: Nháy chọn nút Paste
B5: Nhấn phím ESC để kết thúc việc sao chép. Quay về B3 để tiếp tục sao chép.
+) Cách 2: Sao chép bằng thao tác kéo thả chuột: dùng chuột kéo thả mốc của ô hoặc khối cần sao chép theo hướng xuống dưới hay lên trên( nếu sao chép giữa các hàng) hoặc theo hướng sang phải hay sang trái( nếu sao chép giữa các cột).
- Cách di chuyển dữ liệu: Ta làm tương tự như sao chép dữ liệu. B1 thay vì chọn nút Copy thì ta sẽ chọn nút Cut
1)
*Ô là vùng giao nhau giữa cột và hàng
*Hàng và cột là miền làm việc chính của bảng tính
*Khối là 1 nhóm các ô liên kề nhau tạo thành hình chữ nhật
2)
*Hàm là công thức được định nghĩa từ trước
*Lợi ích:
Giúp việc tính toán trở nên dễ dàng và nhanh chóng hơn
*Các bước nhập công thức:
b1: Chọn ô cần nhập công thức
b2: Gõ dấu =
b3: Nhập công thức
b4: Nhấn Enter hoặc nháy chuột vào dấu "V" để kết thúc
*Các bước nhập hàm:
b1: Chọn ô cần nhập
b2: Gõ dấu=
b3: Gõ hàm theo đúng cú pháp của nó
b4: Nhấn Enter
(câu 3 mình không hiểu rõ cho lắm 
)
Bài 1:
uses crt;
var cd,cr,i,j:integer;
begin
clrscr;
write('chieu dai='); readln(cd);
write('chieu rong='); readln(cr);
if (cd>0) and (cr>0) and (cd>=cr) then
begin
for i:=1 to cr do
begin
for j:=1 to cd do
write('*');
writeln;
end;
end
else writeln('vui long nhap lai');
readln;
end.
Bài 2:
uses crt;
var a,s,dem:integer;
begin
clrscr;
s:=0;
dem:=0;
repeat
write('nhap so a:'); readln(a);
s:=s+a;
dem:=dem+1;
until a=0;
writeln('tong cua cac so da nhap la: ',s);
writeln('trung binh cong cua cac so da nhap la: ',s/dem:4:2);
readln;
end.
Bài 3:
uses crt;
var i:integer;
begin
clrscr;
writeln('bang tinh can bac 2 cua 100 so nguyen duong dau tien la: ');
for i:=1 to 100 do
begin
write('can bac 2 cua ',i,' la: ');
writeln(sqrt(i):4:2);
end;
readln;
end.
uses crt;
var n,d,i,t,x,y:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
if n mod 2=0 then writeln('1')
else writeln('0');
str(n,st);
d:=length(st);
writeln('Cac chu so cua ',n,' la: ');
for i:=1 to d do
write(st[i]:4);
writeln;
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln('Tong cac chu so cua ',n,' la: ',t);
readln;
end.
1. Vd nhập điểm toán ở ô A1, văn ô B1, anh ô C1 thì D1 tính điểm trung bình dùng =average(A1,B1,C1)
mình không học tin 7 nữa nên cất sách đâu đó rồi lười lục nên bạn làm tương tự vậy nhé :)
2. bảng tính in ra mấy trang tùy vào danh sách lớp đó nhiều không mở in ra nhìn được là thấy in ra mấy trang nhé! Print -> print preview
3. riêng phần này bạn tự căn ở trang tính cho phù hợp nhé :)
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n%2==0) cout<<"Chan";
else cout<<"Le";
return 0;
}
Bài 1:
uses crt;
var n,i,dem,maxd,vt,vt1,vt2,vt3,maxa,dem1:integer;
a,b,c,d,e,f,g:array[1..100]of integer;
mind,mina:int64;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>100) then writeln('nhap lai');
until (0<n) and (n<=100);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{--------------------------so-hang-duong-----------------------}
dem:=0;
for i:=1 to n do
if a[i]>0 then
begin
inc(dem);
b[dem]:=a[i];
end;
maxd:=0;
for i:=1 to dem do
if maxd<b[i] then maxd:=b[i];
vt:=0;
for i:=1 to n do
if maxd=a[i] then
begin
vt:=vt+1;
c[vt]:=i;
end;
writeln('so hang duong lon nhat cua day la: ',maxd);
writeln('vi tri cua no lan luot la: ');
for i:=1 to vt do
write(c[i]:4);
writeln;
mind:=maxint;
for i:=1 to dem do
if mind>b[i] then mind:=b[i];
vt1:=0;
for i:=1 to n do
if mind=a[i] then
begin
inc(vt1);
d[vt1]:=i;
end;
writeln('so hang duong nho nhat cua day la: ',mind);
writeln('vi tri cua no lan luot la: ');
for i:=1 to vt1 do
write(d[i]:4);
{------------------------so-hang-am--------------------------}
writeln;
dem1:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(dem1);
e[dem1]:=a[i];
end;
maxa:=e[1];
for i:=1 to dem1 do
if maxa<e[i] then maxa:=e[i];
vt2:=0;
for i:=1 to n do
if maxa=a[i] then
begin
inc(vt2);
f[vt2]:=i;
end;
writeln('so hang am lon nhat cua day la: ',maxa);
writeln('vi tri cua no lan luot la: ');
for i:=1 to vt2 do
write(f[i]:4);
writeln;
mina:=maxint;
for i:=1 to dem1 do
if mina>e[i] then mina:=e[i];
vt3:=0;
for i:=1 to n do
if mina=a[i] then
begin
inc(vt3);
g[vt3]:=i;
end;
writeln('so hang am nho nhat cua day la: ',mina);
writeln('vi tri cua no lan luot la: ');
for i:=1 to vt3 do
write(g[i]:4);
readln;
end.
Bài 2:
uses crt;
var a,vt:array[1..10]of integer;
i,x,dem:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
write('nhap x='); readln(x);
dem:=0;
for i:=1 to 10 do
if a[i]=x then
begin
inc(dem);
vt[dem]:=i;
end;
if dem=0 then writeln('khong co gia tri ',x,' trong day')
else
begin
writeln('vi tri cua ',x,' trong day lan luot la:');
for i:=1 to dem do
write(vt[i]:4);
end;
readln;
end.
Bài 3:
uses crt;
var a:array[1..100,1..100]of integer;
n,i,j,t:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']='); readln(a[i,j]);
end;
{----------------------------xuat-----------------------------}
writeln('ma tran ban vua nhap la:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
{------------------tong-cac-phan-tu-tren-duong-cheo-chinh------------------}
t:=0;
for i:=1 to n do
for j:=1 to n do
if i=j then t:=t+a[i,j];
writeln('tong cac phan tu tren duong cheo chinh la: ',t);
readln;
end.
uses crt;
var a:array[1..5]of integer;
n,i,b,c,d,dem:integer;
begin
clrscr;
randomize;
n:=5;
for i:=1 to n do
begin
write('lan nhap thu ',i,'='); readln(a[i]);
end;
b:=random(900)+100;
c:=random(900)+100;
d:=random(900)+100;
dem:=0;
for i:=1 to n do
begin
if b=a[i] then inc(dem);
if c=a[i] then inc(dem);
if d=a[i] then inc(dem);
end;
if dem>=3 then writeln('ban da thang!')
else writeln('ban da thua!');
readln;
end.
Đề có cho biết các số máy lấy như thế nào đâu bạn nhỉ?