1. Viết chương trình nhập vào 1 số a. Nếu a lớn hơn hoặc bằng 3. In ra màn hình "không hợp lệ". Ngược lại, "số không hợp lệ" 2. Viết chương trình nhập vào 1 số x. Nếu x lớn hơn hoặc bằng 0. In ra màn hình "số dương". Ngược lại, "số âm" 3. Viết chương trình nhập vào điểm trung bìn

xuanhongxx

2 năm trước

1. Viết chương trình nhập vào 1 số a. Nếu a lớn hơn hoặc bằng 3. In ra màn hình "không hợp lệ". Ngược lại, "số không hợp lệ" 2. Viết chương trình nhập vào 1 số x. Nếu x lớn hơn hoặc bằng 0. In ra màn hình "số dương". Ngược lại, "số âm" 3. Viết chương trình nhập vào điểm trung bình ( ĐTB ) của 1 học sinh từ bàn phím. Nếu ĐtB lớn hơn hoặc bằng 5. In ra màn hình “HS đã thi đậu”. Ngược lại, “HS đã thi rớt. -GIÚP MÌNH VỚI CÁC CẬU!!! -BÀI KTRA 15’ TIN THỰC HÀNH. -FULL HẾT HỘ Ạ. -AI TRẢ LỜI ĐÚNG + ĐẦY ĐỦ THÌ MÌNH SẼ VOTE 5 SAO + CẢM ƠN

Loga Sinh Học lớp 12

0 lượt thích 19 xem

1 trả lời

Thích Trả lời

Lamchi

Program B1;

Uses Crt;

Var a:integer;

Begin

Clrscr;

Writeln('Nhap so a: ', readln(a));

If a>=3 then writeln('So hop le') else writeln('So khong hop le');

Readln;

End.

Program B2;

Uses Crt;

Var x:integer;

Begin

Clrscr;

Writeln('Nhap so x: ', readln(x));

If a>=0 then writeln('So duong') else writeln('So am');

Readln;

End.

Program B3;

Uses Crt;

Var DTB:integer;

Begin

Clrscr;

Writeln('Nhap diem trung binh : ', readln(DTB));

If a>=5 then writeln('Hoc sinh da dau') else writeln('Hoc sinh da thi rot');

Readln;

End.

Em ơi tính ra 3 bài này giống i nhau luôn ý

chỉ khác là thay đổi số thôi

Vote (0) Phản hồi (0) 2 năm trước

crushyouh

Program sohople;

Uses crt;

Var a: real;

Begin

Clrscr;

Write('nhap a',a); readln(a);

If a>= 3 then writeln('so hop le')

Else writeln('so khong hop le');

{Cai dang sau khong hop le thi cai dang truoc phai hop le chu nhi?}

Readln

End.

Program soamduong;

Uses crt;

Var x: real;

Begin

Clrscr;

Write('nhap x',x); readln(x);

If x>= 0 then writeln('so duong')

Else writeln('so am');

Readln

End.

Program diemtb;

Uses crt;

Var dtb: real;

Begin

Clrscr;

Write('nhap diem trung binh',dtb); readln(dtb);

If dtb>= 5 then writeln('Hs da thi dau')

Else writeln('hs da thi rot ');

Readln

End.

Mấy cái này tương tự nhau mà =°=

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Người ta muốn chia 374 quyển vở ,68 cái thước,918 nhãn vở thành một số phần thưởng như nhau.Hỏi có thể chia được nhiều nhất thành bao nhiêu phần thưởng, khi đó mỗi phần thưởng có bao nhiêu quyển vở,thước,nhãn vở?

Help me câu 6 nha các bạn.Nhanh nha mình rất cần.

Công ti A đã sản xuất ra những chiếc máy bay nước nóng với số vốn ban đầu là 800 triệu đồng.Chi phí để sản xuất ra 1 chiếc máy nước nóng là 2,5 triệu đồng.Giá bán ra mỗi chiếc máy nước nóng là 3 triệu đồng. a)Viết hàm số y(triệu đồng)biểu diễn tổng số tiền công ti gồm vốn ban đầu và chi phí sản xuất(để sản xuất ra x máy nước nóng). b)Công ti A cần bán ít nhất bao nhiêu máu nước nóng mới thu hồi vốn ban đầu?

oxh hoàn toàn 1 phân tử glucose sẽ tạo ra nguồn năng lượng bao nhiêu ATP?

nêu định lý pi-ta -go đảo? cho mik hỏi

Tìm tất cả các cặp số nguyên thỏa mãn phương trình $x^{2}$ (y-1)+ $y^{2}$ (x-1)=1

a) Nêu đăc điểm chung của ngành thân mềm b) Trình bày cấu tạo trong của trai sông ? giải thích cấu tạo thích nghi, lớp vỏ ngành thân mềm? c) Trình bày hiện tượng tạo ngọc ở trai

Bài 1: Trên tia Ax, lấy 2 điểm M,N sao cho AM=3cm, AN=4cm. a) Vẽ tia Ay là tia đối của tia Ax. Trên tia Ay lấy điểm P sao cho AP=2cm. Tính PM b)Điểm M có phải là trung điểm của PN ko? Vì sao Bài 2:Tìm số tự nhiên x,y biết (x-1).(y-2)=10 M.n làm gấp hộ e vs ạ !!!

Cuộc Duy Tân Minh Trị Ở Nhật Bản thế kỉ XIX: 1. Giải thích tại sao Nhật Bản tiến hành cải cách ? 2. Tính chất, ý nghĩa 3. Liên hệ với tình hình Trung Quốc giữa TK XIX

Tìm m để hàm số cắt trục ox và oy tạo tam giác cân

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến