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.
Const pi:= 3.14;
Var cv:integer
R:real;
Begin
R:=5.5;
Cv=2*pi*r;
Writeln('chu vi la:=cv');
Readln
End.
Tìm và sửa lại lỗi nha mn
Var cv:integer -> Thiếu dấu ; khi kết thúc 1 câu lệnh nào đó. (Var cv:integer; )
Writeln('chu vi la:=cv'); -> Câu lệnh không lỗi nhưng để in ra kết quả thì biến cv cần nằm ở ngoài dấu nháy. ( Writeln('chu vi la= ',cv); )
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)
em hãy hoàn thành chương trình thông báo kết quả kì thi nghề phổ thông như sau: nhập vào họ tên thí sinh(ht), lớp (l), điểm thi lý thuyết (dlt), điểm thi thực hành (dth). sau đó tính điểm trung bình (dtb) của 2 phần thi đó: nếu dtb >=8 hoàn thành xuất sắc, dtb>=6.5 hoàn thành tốt, các trường hợp còn lại là hoàn thành. trong đó:+ điểm thực hành được làm tròn thành số nguyên dương +điểm trung bình bằng trung bình cộng của điểm lý thuyết và điểm thực hành + thông báo kết quả của thí sinh gồm: họ và tên, lớp, kết quả
Viết chương trình số a chia hết cho 5
Cho số nguyên dương N. Gọi K là tổng các chữ số của N. Hãy kiểm tra xem K có phải là số nguyên tố không?
Cho dãy số 8,7,5,6,9,3,7,9,7 Nếu k=7 thử bằng thuật toán xem k xuất hiện mấy lần Giúp mình với mình cần luôn Cảm ơn ạ
viết thuật toán xác định số lần xuất hiện của số nguyên k trong dãy số nguyên A1,A2,...An giúp mình với mình cần gấp ạ cảm ơn
tính s=(-1)^1*1+(-1)^2*2+(-1)^3*3+...+(-1)^n*n
Bài 15: Viết chương trình đọc từ file INP một dãy số nguyên A gồm có N phần tử (N<=10000). Ghi vào file OUT: dòng 1 ghi các số chẵn theo thứ tự tăng dần, dòng 2 ghi các số lẻ theo thứ tự giảm dần. BAI15.INP BAI15.OUT
6 10 -5 6 -7 -9 4 4 6 10 -5 -7 -9
Bài 16: Viết chương trình đọc từ file INP một dãy số nguyên A gồm có N phần tử (N<=10000). Ghi vào file OUT: dòng 1 ghi dãy các số nguyên tố có trong dãy. BAI16.INP BAI16.OUT
Nhập 2 số nguyên x, y bất kỳ (có thể âm, có thể dương).
Nếu 2 số cùng dương thì in và tính tổng các số chia hết cho 3.
Nếu 2 số cùng âm thì in và tính tổng các số chia hết cho 5.
Còn lại in và tính tích các số lẻ.
Tìm và sửa lại lỗi nha mn
Const pi:= 3.14;
Var cv:integer -> Thiếu dấu ; khi kết thúc 1 câu lệnh nào đó. (Var cv:integer; )
R:real;
Begin
R:=5.5;
Cv=2*pi*r;
Writeln('chu vi la:=cv'); -> Câu lệnh không lỗi nhưng để in ra kết quả thì biến cv cần nằm ở ngoài dấu nháy. ( Writeln('chu vi la= ',cv); )
Readln
End.