Bài 6. Câu lệnh điều kiện

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Yến Linh

1. Vt chương trình nhập vào năm sinh của 1 ng và cho biết ng đó đã đủ tuổi để vào đại học chưa ( biết rằng vào đại học khi 18 tuổi trở lên).

2. Vt chương trình nhập vào một số nguyên từ bàn phím và thông báo đó là số nguyên âm hay nguyên dương.

3. Vt chương trình nhập vào hai số bất kì từ bàn phím, thông báo cho biết số nào lớn hơn.

4. Vt chương trình nhập vào một số nguyên từ bàn phím, thông báo số vừa nhaajplaf chẵn hay số lẻ.

5. Vt chương trình nhập vào điểm trung bình của ba môn Toán, Văn, Tiếng Anh cho biết ng đó có đậu vào lớp 10 hay k, biết rằng điểm chuẩn vào lớp 10 là 20 điểm.

Trương Quang Dũng
28 tháng 11 2017 lúc 21:49

1. program daihocthangtien;

uses crt;

var tuoi,ns,nht:longint;

begin

clrscr;

write('Nhap nam sinh');readln(ns);

write('Nhap nam hien tai');readln(nht);

tuoi:=nht-ns;

if tuoi>=18 then write('Ban da du tuoi vao dai hoc')

else write('Ban chua du tuoi vao dai hoc');

readln

end.

duong nguyenvan
29 tháng 11 2017 lúc 15:21

2.

program bai2;

uses crt;

var n : longint;

begin

clrscr;

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

if n >= 0 then write(n , ' la so nguyen duong')

else write(n , ' la so nguyen am ');

readln;

end.

duong nguyenvan
29 tháng 11 2017 lúc 15:25

3.

program bai3;

uses crt;

var a,b: longint;

begin

clrscr;

write('nhap so a ='); readln(a);

write('nhap so b ='); readln(b);

if a>b then writeln('a lon hon b ') else

writeln('a nho hon b ');

readln;

end.

duong nguyenvan
29 tháng 11 2017 lúc 15:27

4.

3.

program bai3;

uses crt;

var a: longint;

begin

clrscr;

write('nhap so a ='); readln(a);

if a mod 2 = 0 then writeln('a la so chan ') else

writeln('a la so le ');

readln;

end.

duong nguyenvan
29 tháng 11 2017 lúc 15:41

5.

Program bai5;

uses crt;

var t,v,a,dtb: real;

begin

clrscr;

repeat

write('nhap diem toan ='); readln(t);

write('nhap diem van ='); readln(v);

write('nhap dien anh ='); readln(a);

until (t>=0) and (v >=0) and (a >=0);

dtb:=(t+v+a)/3;

writeln('dien trung binh la :' ,dtb:4:2);

if dtb <=20 then writeln('khong dau lop 10 ') else

writeln('dau lop 10 ');

readln;

end.

không biết có đúng không nữa.

vui


Các câu hỏi tương tự
Minh Ngọc
Xem chi tiết
Phạm Hải Đăng
Xem chi tiết
Trúc Anh
Xem chi tiết
Huy Tùng Vũ
Xem chi tiết
Minh Ngọc
Xem chi tiết
Cao Minh Thảo
Xem chi tiết
Ngô Vân Minh Châu
Xem chi tiết
Ngoc Thanh
Xem chi tiết
Hân Chướng
Xem chi tiết