Viết chương trình nhập vào từ bàn phím bà số tự nhiên a,b,c: a) thông báo ra màn hình số a là số chẵn hay số lẻ
b)thông báo ra màn hình số b là số chẵn hay số lẻ
c) thông báo ra màn hình số c là số chẵn hay số lẻ
d) thông báo ra số lớn nhất trong ba số đó
Ai giúp mik với ạ
uses crt;
var a,b,c,max:integer;
begin
clrscr;
write('nhap ba so:');readln(a,b,c);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,'la so le);
if b mod 2=0 then writeln(b,'la so chan')
else writeln(b,'la so le');
if c mod 2=0 then writeln(c,'la so chan')
else writeln(c,'la so le');
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln('so lon nhat trong ba so la:',max);
readln
end.
Nhập vào điểm 3 môn : toán,văn,anh kết quả ''đậu'' khi điểm trung bình lớn hơn 5.0 và ko có môn dưới 4 . Các trường hợp còn lại ''rớt''
Viết CT nhập chiều cao của bạn trong lớp in ra màn hình bạn cao nhất
Giúp mình với mai ktra rồi ạ!!
Program HOC24;
var a: array[1..50] of real;
i,n: integer;
max: real;
begin
write("Nhap so ban trong lop: "); readln(n);
for i:=1 to n do
begin
write("Nhap chieu cao cua ban thu ",i,": "); readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
if max<a[i] then max:=a[i];
write("Ban co nhat la ban thu: ");
for i:=1 to n do if a[i]=max then write(i,"");
readln
end.
viết chương trình pascal nhập điểm trung bình môn tin học rồi in ra màn hình thông báo theo xếp loại đạt hoặc chưa đạt. yêu cầu đạt từ 5 điểm trở lên là đạt, dưới 5 điểm trở xuống là chưa đạt
Ai giúp mình đi ạ mình đang cần gấp
viết chương trình nhập 2 số nguyên x, y. In ra kết quả so sánh x, y
mình cần gấp ạ
uses crt;
var x,y:integer;
begin
clrscr;
readln(x,y);
if (x<y) then write('x nho hon y')
else if (x>y) then write('x lon hon y')
else write('hai so bang nhau');
readln;
end.
Nhập họ tên, mức lương tháng, tạm ứng và phụ cấp của 1 người. Tính phần còn lĩnh rồi in kết quả ra màn hình :))
Viết chương trình để nhập 1 số nguyên a đưa ra thông báo số chẵn hoặc số lẻ
help
Program HOC24;
var a: integer;
begin
write('Nhap a: '); readln(a);
if a mod 2=0 then write(a,' la so chan') else write(a,' la so le');
readln
end.
