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.
a)
program Diem_trung_binh;
uses crt;
var i, n: integer;
giatriTB: real;
A: array[1..100] of real;
begin
clrscr;
write('Nhap so hoc sinh lop 8A: ');
readln(n);
writeln('Nhap diem cua moi ban:');
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
giatriTB:=giatriTB+a[i]
end;
giatriTB:=giatriTB/n;
writeln('Diem trung binh cua 50 hoc sinh lop 8A la: ', giatriTB:3:2);
readln
end.
Câu 1:
uses crt;
var k,i:integer;
begin
clrscr;
write('Nhap k='); readln(k);
for i:=1 to k do
write(i:4);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac gia tri cua day la: ',t);
readln;
end.
program tong_nghich_dao;
uses crt;
var i, n: integer;
S: real;
begin
clrscr;
write('Nhap so tu nhien bat dau: n = '); read(n);
S := 0;
for i:= n to (n + 49) do
S:=S + 1/i;
write('Tong can tim la S = ',S);
readln
end.
C1:
Var
a:integer;b: integer;
Begin
a:=0;
Writeln('Hay nhap nam can tinh:');
readln(b);
a:=b-2003;
if a>9 and a<20 then
writeln('Nam dang o trong tuoi vi thanh nien.')
else
writeln('Nam khong o trong tuoi vi thanh nien.');
readln;
end.
Câu 1: C
Câu 2: D
Câu 3: B
Câu 4; B
Câu 5: D
Câu 6: C
Câu 7: A
Câu 8: A