còn trung bình, yếu

uses crt;

var diem:real;

begin

clrscr;

repeat

write('Nhap diem trung binh:'); readln(diem);

until (0<=diem) and (diem<=10);

if diem<5 then writeln('Xep loai yeu')

else if (5<=diem) and (diem<6.5) then writeln('Xep loai trung binh')

else if (6.5<=diem) and (diem<8.0) then writeln('Xep loai kha')

else writeln('Xep loai gioi');

readln;

end.

help

Uses crt;

Var i,n:integer;

      a:array[1..1000] of integer;

Begin

clrscr;

Write('Nhap so hoc sinh: ');readln(n);

Writeln('Nhap diem hoc ki mon tin cua ',n,' em hoc sinh:');

For i:=1 to n do

Begin

Write('Hoc sinh thu ',i,' : ');

readln(a[i]);

End;

Writeln('Diem kiem tra cua ',n,' em hoc sinh vua nhap la:');

For i:= 1 to n do writeln('Hoc sinh thu ',i,' : ',a[i]);

readln;

End.

uses crt;

var a:array[1..100]of integer;

i,n,tb:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

write('A[',i,']='); readln(a[i]);

end;

tb:=0;

i:=1;

while i<=n do 

  begin

tb:=tb+a[i];

inc(i);

end;

writeln(tb/n:4:2);

readln;

end.

nếu chạy ct mà nó không dừng lại thì bấm alt+F5 nhá

1. Số phần của số quả trứng còn lại là: 

1 – (1/4 + 2/5)=7/20(phần).

Số quả trứng của người bán là:

21 × 20/7=60(quả trứng)

. Số quả trứng đã bán là: 

60 – 21 = 39(quả trứng).

Số quả trứng lần thứ nhất bán được là: 

60× 1/4=15(quả trứng).

Số quả trứng lần thứ hai bán được là:

 60× 2/5=24(quả trứng).

Var dtb:real;
Begin
 Repeat
  Writeln('Nhap diem trung binh cua ban vao day:'); Readln(dtb);
 Until (0<=dtb) and (dtb<=10);
If dtb>=5 then writeln ('Chuc mung,ban da dau!') else if dtb<5 then writeln('Xin chuc mung, ban da tach!');
Readln
 End.
*Dòng lệnh in đậm có nghĩa là khi bạn nhập dtb mà không nằm trong phạm vi từ 0->10, nó sẽ bắt bạn phải nhập lại cho đến khi đúng phạm vi. Vd như dưới đây: (Good luck for you :D :D )

uses crt;

var lt,th:real;

begin

clrscr;

write('Nhap diem LT:'); readln(lt);

write('Nhap diem TH:'); readln(th);

if (lt+th)/2>=5 then writeln('Dau')

else writeln('Rot');

readln;

end.