Đề tin cuối kì
c1: viết chương trình tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 100
c2: viết chương trình tính tổng các lập phương n số tự nhiên đầu với n nhập từ bàn phím
c3: viết CT nhập từ bàn phím số nguyên dương n và dãy a gồm n số nguyên dương
a1,a2,…,an sau đó in ra màn hình TB cộng các phần tử chẵn trong dãy a
Đây ạ
Câu 1:
var s,d:integer;
begin
s:=0; d:=0;
repeat
d:=d+1;
s:=s+d;
until s>100;
writeln(s);
end.
Câu 2:
var n,i,s:longint;
begin
readln(n); s:=0;
for i:=1 to n do n do
s:=s+(i*i*i);
writeln(s);
end.
Câu 3:
var a:array[1..100]of integer;
n,i,dem,tb:integer;
begin
clrscr;
write(‘Nhap so phan tu:’); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(a[i]);
end;
tb:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
tb:=tb+a[i];
dem:=dem+1;
end;
writeln(‘Trung binh cong cac phan tu chan la: ‘,tb/dem:4:2);
readln;
end.
+Xin hay nhất và 5* ạ
c1)
var
s,d:integer;
begin
s:=0; d:=0;
repeat
d:=d+1;
s:=s+d;
until s>100;
writeln(s);
end.
C2)
var
n,i,s:longint;
begin
readln(n); s:=0;
for i:=1 to n do n do
s:=s+(i*i*i);
writeln(s);
end.
C3)
var a:array[1..100]of integer;
n,i,dem,tb:integer;
begin
clrscr;
write(‘Nhap so phan tu:’); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(a[i]);
end;
tb:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
tb:=tb+a[i];
dem:=dem+1;
end;
writeln(‘Trung binh cong cac phan tu chan la: ‘,tb/dem:4:2);
readln;
end.