Bài 1 : Một giáo viên vào lớp và phát kẹo cho các em học sinh theo qui tắc sau : em đầu tiên được nhận 1 viên kẹo, em tiếp theo nhận số kẹo nhiều hơn em trước đó 3 viên. Hỏi nếu lớp học có 20 học sinh thì tổng số kẹo phải có để Giáo viên phát đủ cho cả lớp. Bài 2 : Nhập M từ bàn phím (M>0), Tính giá trị của biểu thức Tong = 12 + 22 + 32 + ... + M2 Bài 3 : Nhập M, N từ bàn phím (M < N). Tính tổng các số chia hết cho 3 trong pham vi từ M đến N.
1 câu trả lời
1)
uses crt;
var n,s,i:longint;
begin
clrscr;
for i:=1 to 20 do s:=s+3;
writeln(s);
end.
--------------
uses crt;
var n,s,i:longint;
begin
clrscr;
for i:=20 downto 1 do s:=s+3;
writeln(s);
end.
2)
uses crt;
var m,t,i:longint;
begin
clrscr;
readln(m);
if m<0 then writeln('sai')
else
begin
for i:=1 to n do t:=t+sqr(i);
writeln(t);
end;
end.
-----------
uses crt;
var m,t,i:longint;
begin
clrscr;
readln(m);
if m<0 then writeln('sai')
else
begin
for i:=m downto 1 do t:=t+sqr(i);
writeln(t);
end;
end.
3)
uses crt;
var m,n,i,s:longint;
begin
clrscr;
readln(m,n);
if m>=n do writeln('sai')
else
begin
for i:=m to n do
if i mod 3=0 then s:=s+i;
writeln(s);
end;
end.
----------------
uses crt;
var m,n,i,s:longint;
begin
clrscr;
readln(m,n);
if m>=n do writeln('sai')
else
begin
for i:=n downto m do
if i mod 3=0 then s:=s+i;
writeln(s);
end;
end.
