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.
b)
uses crt;
var s,i,a:longint;
begin
clrscr;
s:=0;
a:=1;
for i:=1 to 35 do
begin
s:=s+a;
a:=a+3;
end;
writeln('So vien keo la: ',s);
readln;
end.
uses crt;
var t:real;
begin
t=trunc(exp((63*ln(2))));
writeln('So dong tien la : ',t);
readln;
end.
cần 40 viên kẹo để phăt đủ cho cả lớp
uses crt;
var t,a,i:integer;
begin
clrscr;
t:=1;
a:=1;
for i:=1 to 39 do
begin
a:=a+2;
t:=t+a;
end;
writeln(t);
readln;
end.
1:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+i*i;
write(t);
readln;
end.
2
program bt2;
var i,n,t:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 2 = 1 then s:=s+i;
readln;
end.
{ đơ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.
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(....
thanks