viết chương trình Pascal thực hiện các yêu cầu sau: Nhập họ và tên học sinh (HT), lớp(L). Nhập cân nặng (W) và chiều cao (H) của học sinh. Tính chỉ số khối của cơ thể BML (với BML = W/H2). In ra màn hình đánh giá về sự phát triển của hs là mập, bình thường hoặc phát triển chậm (theo tiêu chuẩn nếu BML>=25 người mập, BML>=18.5 phát triển bình thường, các trường hợp còn lại là phát triển chậm)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
Tk
Program Can_nang;
Uses Crt;
Var W,h,BMI: Real;
Begin
Clrscr;
Writeln('Nhap can nang');Readln(W);
Writeln('Nhap chieu cao');Readln(h);
BMI:= W/h*h ;
Writeln(' Chi so khoi cua co the la', BMI:0:1);
If (BMI >=25) then Write(' Ban map roi do nhe');
If (18.5<=BMI) and (BMI<25) then Write(' Ban phat trien binh thuong') ;
If (BMI< 25) then Write(' Ban phat trien cham roi') ;
Readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
program TinhTBCTimSoNT;
var
ten, lop: string;
n, i, tong, dem: integer;
A: array [1..11] of integer;
trung_binh: real;
function LaSoNguyenTo(x: integer): boolean;
var
i: integer;
begin
if x < 2 then
LaSoNguyenTo := false
else if x = 2 then
LaSoNguyenTo := true
else if x mod 2 = 0 then
LaSoNguyenTo := false
else
begin
i := 3;
while (i <= trunc(sqrt(x))) and (x mod i <> 0) do
i := i + 2;
LaSoNguyenTo := x mod i <> 0;
end;
end;
begin
// Nhập tên và lớp của học sinh
write('Nhập tên của học sinh: ');
readln(ten);
write('Nhập lớp: ');
readln(lop);
// Nhập dãy số nguyên và tính trung bình cộng
repeat
write('Nhập số phần tử của dãy số (n<12): ');
readln(n);
until n < 12;
tong := 0;
for i := 1 to n do
begin
write('Nhập phần tử thứ ', i, ': ');
readln(A[i]);
tong := tong + A[i];
end;
trung_binh := tong / n;
// In tên, lớp, dãy số và trung bình cộng ra màn hình
writeln('Học sinh: ', ten);
writeln('Lớp: ', lop);
write('Dãy số: ');
for i := 1 to n do
write(A[i], ' ');
writeln;
// In các số nguyên tố của dãy số ra màn hình
writeln('Các số nguyên tố của dãy số:');
for i := 1 to n do
if LaSoNguyenTo(A[i]) then
writeln(A[i]);
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Var a:array[1..35] of real;
i:integer;
Begin
For i:=1 to 35 do
Begin
Write('Nhap diem thu ',i);readln(a[i]);
End;
write('Diem vua nhap la ');
For i:=1 to 35 do write(a[i]:10:2);
Writeln;
write('Cac diem duoi 5 hoac > la ');
For i:=1 to 35 do
If (a[i]>9) or (a[i]<5) then write(a[i]:10:2)
Readln
End.