Làm ơn giúp mk với!!! Đang cần gấp ạ Bài 1: viết chương trình nhập vào điểm 3 môn: Toán, văn, anh từ bàn phím. Tính điểm trung bình và in ra thông báo nếu điểm trung bình >=9 và<10 "giỏi" 7<=ĐTB và <=8 khá 5<=ĐTB <7 "TB" ĐTB<5 "ko đạt" Bài 2: viết chương trình nhập N từ bàn phím. Đếm từ 1 đến n có bao nhiêu số lẻ, in kết quả ra màn hình Bài 3: in N nhỏ nhất để 1/N<0.01

B1

uses crt;

var a,b,c,d:word; 

begin

clrscr;

write('diem mon van: ') readln(a);

write('diem mon toan: ') readln(b);

write('diem mon anh: ') readln(c);

d:=(a+b+c)/3;

if (d>=9) and (d<=10) then write('gioi');

if (d>=9) and (d<=8) then write('kha');

if  (d>=5) and (d<7) then write('TB');

if d<5 then write('ko dat');

readln

end.

B2

Uses crt;

var n,i:word;

Begin

clrscr;

write('n='); readln(n);

for i:=1 to n do

begin

if n mod 2=1 then D:=D+1;

end;

write('co ',d,' sl');

readln

end.

B3 Sai đề em chịu

Bài 1:

program bai1;

uses crt;

var T,V,A,Tb:real; 

begin clrscr;

   write('Nhap diem ba mon Toan, Van, Anh '); readln(T,V,A);

     Tb:=(T+V+A)/3;

   writeln('Diem Tb ba mon do la: ',Tb);

   if 9<=Tb and Tb<=10 then writeln('Gioi');

   if 7<=Tb and Tb<=8 then writeln('Kha');

   if 5<=Tb and Tb<7 then writeln('Trung binh');

   if Tb<5 then writeln('Khong dat');

readln;

end.

Bài 2:

program bai2;

uses crt;

var i,N:integer; 

begin clrscr;

   writeln('Nhap so N'); readln(N);

   writeln('Cac so le tu 1 den ',n,' la: ');

   for i:=1 to N do

     if i mod 2<>0 then write(i);

readln;

end.

Bài 3:

program bai3;

uses crt;

var i,N:integer; 

begin clrscr;

     i:=0; N:=1;

   while 1/N < 0.01 do

     N:=N+i; i:=i+1;

   write('N nho nhat de 1/N<0.01 la: ',N);

readln;

end.

Học tốt!