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.
Program solonhon;
var a,b: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a> b then write(a);
if a<b then write(b);
if a=b then write('2 so bang nhau');
readln
end.
1.Chương trình bảng tính là phần mềm đuọc thiết kế để giúp ghi lại và trình bày thông tin dưới dạng bảng,thực hiẹn các tính cũng như xây dựng các biểu đồ biểu diển 1 cách trực quan các số liệu có trong bảng!
10.Các thành phần chính:ô,hàng,cột,khối,...
19.Để sao chép nội dung ô tính,ta thực hiện theo 4 bước:
1:Chọn ô cần sao chép đi
2:nhấn nút copy trên thanh công cụ
3:Chọn ô cần sao chép tới
4:nhấn nút paste trên thanh công cụ
SORRY,MÌNH CHỈ BIẾT BAO NHIÊU ĐÓ,XIN LỖI BẠN NHA!!!
const fi='calc.inp';
fo='calc.out';
var f1,f2:text;
max,a,b,c,d1,t1,i,x,y,d2,t2,d,e,d3,t3,f,g:integer;
st1,st2,st3:string;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b,c);
str(a,st1);
str(b,st2);
str(c,st3);
d1:=length(st1);
t1:=1;
for i:=1 to d1 do
begin
val(st1[i],x,y);
t1:=t1*x;
end;
d2:=length(st2);
t2:=1;
for i:=1 to d2 do
begin
val(st2[i],d,e);
t2:=t2*d;
end;
d3:=length(st3);
t3:=1;
for i:=1 to d3 do
begin
val(st3[i],f,g);
t3:=t3*f;
end;
max:=t1;
if max<t2 then max:=t2;
if max<t3 then max:=t3;
writeln(f2,max);
close(f1);
close(f2);
end.
Tên phần mềm bản tính : Excel 2010
Cách viết địa chỉ khối
Từ ô đầu : đến ô cuối
Vd: F1:F15
Màn hình là việc của Excel:
- Thanh tiêu đề, thanh bảng chọn, thanh trạng thái, ô tính đang được chọn, tên hàng, thanh công cụ, tên cột, trang tính, tên các trang tính, bảng chọn Data.
+ Thanh công thức là thanh cppng cụ đặc trưng của chương trình bảng tính. Thanh công thức được sử dụng để nhập, hiển thị dữ liệu hoặc công thức trong ô tính.
+ Bảng chọn Data: gồm các lệnh để xử lí dữ liệu.
+ Trang tính gồm các cột và các hàng là miền làm việc chính của bảng tính. Vùng giao nhau giữa cột và hàng là ô tính dùng để chứa các dữ liệu.
+ Địa chỉ của một ô tính là cặp tên cột và tên hàng mà ô nằm trên đó.
Bài 1:
uses crt;
var n,d,t,x,y,j,kt,i,t1,dem:integer;
st:string;
a:array[1..255]of integer;
begin
clrscr;
write('n='); readln(n);
if (0<n) and (n<1000) then
begin
{------------------------dong-1---------------------------}
str(n,st);
d:=length(st);
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);
{----------------------dong-2----------------------------}
writeln('cac so nguyen to nho hon tong cac chu so cua ',n,' la: ');
dem:=0;
for i:=2 to t-1 do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then
begin
write(i:4);
dem:=dem+1;
a[dem]:=i;
end;
end;
{----------------dong-3---------------------------}
writeln;
t1:=0;
for i:=1 to dem do
t1:=t1+a[i];
writeln('tong cac so nguyen to trong dong 2 la: ',t1);
end
else writeln('vui long nhap lai');
readln;
end.
Bài 2:
uses crt;
var a,b,i,dem,j,kt:integer;
c:array[1..100]of integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if (20<=a) and (a<=50) and (30<=b) and (b<=75) then
begin
{------------------------dong-1--------------------------}
writeln('cac so co 2 chu so chia het cho 9 la:');
for i:=10 to 99 do
if i mod 9=0 then write(i:4);
{-----------------------dong-2--------------------------}
writeln;
writeln('cac so chinh phuong lon hon ',a,' va nho hon ',b,' la: ');
for i:=a+1 to b-1 do
if trunc(sqrt(i))=sqrt(i) then write(i:4);
{-----------------------dong-3---------------------------}
writeln;
dem:=0;
for i:=2 to b do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then
begin
inc(dem);
c[dem]:=i;
end;
end;
writeln('so nguyen to lon nhat nho hon ',b,' la: ',c[dem]);
end
else writeln('vui long nhap lai');
readln;
end.
Bài 3:
uses crt;
var n,d,t,i,x,y:integer;
st:string;
begin
clrscr;
write('n='); readln(n);
if (0<n) and (n<105) then
begin
{---------------------------dong-1---------------------------}
str(n,st);
d:=length(st);
writeln('so luong cac chu so cua ',n,' la: ',d);
{---------------------------dong-2--------------------------}
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);
{---------------------------dong-3------------------------}
writeln('phan so toi gian cua ',n,' la: 1/',n);
write('so dao nguoc cua ',n,' la: ');
for i:=d downto 1 do
write(st[i]);
end
else writeln('vui long nhap lai');
readln;
end.
Câu 1:
Program hotrotinhoc;
var i,tog,n: integer;
function tong(x: integer): integer;
var k,t: longint;
begin
t:=0;
while x<>0 do
begin
k:=x mod 10;
t:=t+k;
x:=x div 10;
end;
tong:=t;
end;
function nt(a: integer): boolean;
var j: integer;
begin
nt:=true;
if (a=2) or (a=3) then exit;
nt:=false;
if (a=1) or (a mod 2=0) or (a mod 3=0) then exit;
j:=5;
while (j<=trunc(sqrt(a))) do
begin
if (a mod j=0) or (a mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
begin
write('Nhap so nguyen N :'); readln(n);
writeln('Tong cac chu so cua N la :',tong(n));
write('Cac so nguyen to nho hon tong cac chu so cua N la :');
for i:=1 to tong(n) do if nt(i) then
begin
write(i,' ');
tog:=tog+i;
end;
writeln;
write('Tong cac so nguyen to trong dong 2 la :',tog);
readln
end.
#include <bits/stdc++.h>
using namespace std;
int main()
{
cout<<"
Hoc tin 123de qua 321
Co githacmac xinguifeedback de tacgia sua doiva hoan thienquyen sachnay";
return 0;
}