viết chương trình tính tổng
S=7+8+9+10+11+12+13
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.
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.
A=(2+3+...+13)-(1+2+...+12)=2+3+...+13-1-2-...-12=(13-1)+(2-2)+(3-3)+...+(12-12)=12
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.
uses crt;
var s:integer;
begin
s:=7+8+9+10+11+12+13;
write(s);
readln;
end.
Vậy cũng được nè:
uses crt;
var s:integer;
i:byte;
begin
for i:=7 to 13 do
s:=s+i;
write(s);
readln;
end.