Bài 1: Viết chương trình cho bài toán sau (sử dụng câu lệnh For...do và While...do)
a) 1+2+3+4+5+6+7+8+9
b) 2+4+6+8+10+12+14
c) 3+5+7+9+11+13+15
K
Khách
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.
Những câu hỏi liên quan
4 tháng 3 2022
a: uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
for i:=1 to 100 do s:=s+1/i;
writeln(s:4:2);
readln;
end.
b:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
i:=0;
while i<=100 do
begin
inc(i);
s:=s+1/i;
end;
writeln(s:4:2);
readln;
end.
HT
18 tháng 2 2020
a) Dấu hiệu là điểm bài thi học kì của 100 học sinh lớp 7 của một trường Trung học Cơ Sở Hòa Bình. Số các dấu hiệu là 100
b) Bảng tần số
| Giá trị (x) | 1 | 2 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | |
| Tần số (n) | 2 | 1 | 2 | 4 | 6 | 8 | 9 | 10 | 13 | 11 | 8 | 8 | 4 | 6 | 3 | 2 | 3 | 1 | N=100 |
Nhận xét: Giá trị lớn nhất là 19, giá trị nhỏ nhất là 1; tần số lớn nhất là 13, tần số nhỏ nhất là 1.
KV
20 tháng 4 2022
Var s1,s2,i,j:integer;
Begin
s1:=1;
s2:=0;
i:=2;
j:=4;
While i<=50 do
Begin
s1:=s1+i;
i:=i+2;
End;
While j<=20 do
Begin
s2:=s2+j;
j:=j+4;
End;
s2:=s2+32;
Writeln('Tong day N = ',s1);
Writeln('Tong day M = ',s2);
Readln;
End.
3 tháng 3 2022
For...do:
var s,i: integer;
begin
readln(s,i);
s:=0;
For i:=3 to 99 do
If i mod 3 = 0 do s:=s+i;
write(s)
readln;
end.
while ... do:
Var i,S:integer;
Begin
Readln(i,s);
S:=0;
i:=3;
while i<=99 do
if i mod 3 = 0 then s:=s+i;
write(s);
Readln;
End.
H
3 tháng 3 2023
`4/7+4`
`=4/7+4/1`
`=4/7+28/7`
`=32/7`
__
`3+6/11`
`=33/11+6/11`
`=39/11`
__
`3-5/7`
`=3/1-5/7`
`=21/7-5/7`
`=16/7`
__
`21/9-2`
`=21/9-18/9`
`=3/9`
`=1/3`
__
`15/24+2`
`=15/24+48/24`
`=63/24`
`=21/16`
__
`63/45-20/25`
`=63/45-4/5`
`=63/45-36/45`
`=27/45`
`=9/15`
__
`3/4-2/8`
`=3/4-1/4`
`=2/4`
__
`6/7-5/8`
`=48/56-35/56`
`=13/56`
__
`37/45-5/9`
`=37/45-25/45`
`=12/45`
`=4/15`
__
`46/39-11/13`
`=46/39-33/39`
`=13/39`
`=1/2`
__
`5/12+3/4+1/3`
`=5/12+9/12+4/12`
`=14/12+4/12`
`=18/12`
`=3/2`
__
`1/2+3/7+11/14`
`=7/14+6/14+11/14`
`=13/14+11/14`
`=24/14`
`=12/7`
__
`7/10-(1/5+1/4)`
`=7/10-(4/20+5/20)`
`=7/10-9/20`
`=14/20-9/20`
`=5/20`
`=1/4`
__
`15/4-2/3-3/4`
`=(15/4-3/4)-2/3`
`=12/4-2/3`
`=3-2/3`
`=9/3-2/3`
`=7/3`
lệnh for...to...do:
a)program tinh_tong;
uses crt;
var i,s:byte;
begin
clrscr;
s:=0;
for i:=1 to 9 do s:=s+i;
write(s);
readln;
end.
b)
program tinh_tong;
uses crt;
var i,s:byte;
begin
clrscr;
s:=0;
for i:=1 to 14 do
begin
if i mod 2=0 then
s:=s+i;
end;
write(s);
readln;
end.
c)
program tinh_tong;
uses crt;
var i,s:byte;
begin
clrscr;
s:=0;
for i:=1 to 15 do
begin
if i mod 2=1 then
s:=s+i;
end;
write(s);
readln;
end.
lệnh while...do
a)program tinh_tong;
uses crt;
var i,s:byte;
begin
clrscr;
s:=0;
i:=1;
while i<=9 do
begin
s:=s+i;
i:=i+1;
end;
write(s);
readln;
end.
b)program tinh_tong;
uses crt;
var i,s:byte;
begin
clrscr;
s:=0;
i:=1;
while i<=14 do
begin
if i mod 2=0 then
s:=s+i
else i:=i+1;
end;
write(s);
readln;
end.
c)
program tinh_tong;
uses crt;
var i,s:byte;
begin
clrscr;
s:=0;
i:=1;
while i<=15 do
begin
if i mod 2=1 then
s:=s+i
else i:=i+1;
end;
write(s);
readln;
end.