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 t:real;
begin
t=trunc(exp((63*ln(2))));
writeln('So dong tien la : ',t);
readln;
end.
uses crt;
var t:real;
begin
t=trunc(exp((63*ln(2))));
writeln('So dong tien la : ',t);
readln;
end.
uses crt;
var t,s:qword;
i:integer;
begin
clrscr;
t:=1;
s:=1;
for i:=2 to 64 do
begin
s:=s*2;
t:=t+s;
end;
writeln(t);
readln;
end.
Mình sẽ nêu ý tưởng và bạn hoàn chỉnh thành chương trình nhé
Câu 1 và câu 2 là cách số từ n đến m phải không bạn ?
1.
s:=0;
for i:=m to n do
if i mod 3=0 then s:=s+i;
2.
s:=0;
for i:=m to n do
if (i mod 3=0) and (i mod 5=0) then s:=s+i;
3.
s:=0;
for i:=1 to m do
s:= s+i*i;
4. Ý tưởng ta có :
12 tháng = 0,15%*12=1,8%
=> Tiền lãi nhận được 100*1.8/100=1.8 đồng
5. Ý tưởng ta có dãy : S=1+4+7+...+n (n là số tiền cần tìm);
Số số hạng là 20.
SSH= (n-1)/3+1=20
=> n=...
6. Ý tưởng ta có dãy : S=1+2+22+24+25+...+n (n là số cần tìm)
Bài này tương tự bài 5 tính tổng
7. Ý tưởng ta có :
a là gà
b là chó
if (a+b=36) and (a*2+b*4=100) then write(....
C++ nhé =))
#include <iostream>
using namespace std;
int main (){
int n;
int a;
int b;
cin >> n;
cin >> a;
cin >> b;
cout << "So tien ban dau cua An la " << a + (n - (a + b)) / (1 + 2) * 2 << endl;
cout << "So tien ban dau cua Binh la " << b + (n - (a + b)) / (1 + 2) << endl;
return 0;
}
- Tổng số ca: Tại ô E4 sử dụng công thức: =C4+D4. Sau đó sao chép công thức đến khối ô tính E5:E9 để tính cho những người còn lại.
- Tiền công: Tại ô F4 sử dụng công thức: =E4*F$2. Sau đó sao chép công thức đến khối ô tính F5:F9 để tính cho những người còn lại.
{ đơn giá: a, số lượng: b}
uses crt;
var a,b,s,thanhtoan:integer;
begin
write('nhap gia don hang:');
read(a);
write('nhap so luong hang:');
s:=0;
thanhtoan:=0;
s:=a*b;
if s>100 then thanhtoan:= s*(30/100)
else thanhtoan:= s* (10/100);
write(' so tien can thanh toan la:',' ',thanhtoan);
readln;
end.
program an_danh;
uses crt;
var gio,giothem:integer;
tien:longint;
tienbh,tiencl: real;
const dong = 20000;
begin
clrscr;
write('So gio nguoi do lam viec: ');readln(gio);
write('So gio lam them ca: ');readln(giothem);
if giothem > 0 then
begin
tien:= giothem * (dong * 3);
tien:= tien + (gio * dong);
end
else if giothem = 0 then tien:= gio * dong;
writeln('Tien cong lao dong trong 1 thang: ',tien);
tienbh:= (tien / 100) * 10.5;
writeln('So tien phai nop bao hiem: ',tienbh:0:2);
tiencl:= tien - tienbh;
write('So tien con lai: ',tiencl:0:1);
readln
end.
uses crt;
var nlv,ltc,ttld:longint;
tnbh,tnd:real;
begin
clrscr;
write('nhap so ngay lam viec:'); readln(nlv);
write('nhap so ngay nghi le va lam them ca:'); readln(ltc);
{---------------------cau-a--------------------}
ttld:=nlv*8*20000+ltc*8*60000;
writeln('tien cong lao dong cua nguoi do trong 1 thang la: ',ttld);
{--------------------cau-b-------------------------}
tnbh:=ttld*10.5/100;
writeln('tien dong bao hiem=',tnbh:4:2);
{--------------------cau-c-------------------------}
tnd:=ttld-tnbh;
writeln('so tien ma nguoi do nhan duoc la: ',tnd:4:2);
readln;
end.
uses crt;
var lt:real;
i,n,x:integer;
begin
clrscr;
x:=2;
n:=64;
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln('ket qua la: ',lt-1:4:2);
readln;
end.