Bài 5. Từ bài toán đến chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lê Hoàng Tố My

1. nhập 2 số a và b. In ra số bé hơn
2. nhập vào 2 số a và b. in ra 2 số sắp xếp giảm dần
3. nhập 3 số a, b, c. in ra số lớn nhất
4. nhập 1 số nguyên X. kiểm tra xem X là số chẵn hay số lẻ.
5. nhập 1 số nguyên X. kiểm tra xem X là số âm hay số duơng.

Giúp mình với huhu mai mình thi rồi

Lê Hoàng Tố My
5 tháng 12 2018 lúc 18:41

giúp mình với ạ

Nguyễn Đỗ Vân Nhi
6 tháng 12 2018 lúc 18:21

1.

use crt;
Var a, b: real;
Begin
write('Nhap so a: '); readln(a);
write('Nhap so b: '); readln(b);
if a<b then write('so a nho hon') else write('so b nho hon');
readln;
end.

2. a và b có khác nhau?

uses crt;

var a,b: integer;

begin

clrscr;

readln(a);

readln(b);

if a>b then writeln(a,' ',b)

else writeln(b,' ',a);

readln;

end.

(không đầy đủ lắm đâu)

3.

var a,b,c,max : integer;


Begin

writeln('Tim MAX cua 3 so a,b,c');

write('Nhap so a :');readln(a);
write('Nhap so b :');readln(b);
write('Nhap so c :');readln(c);

max:= a;

if max < b then max := b;
if max < c then max := c;

writeln( 'So Max trong 3 so la : ', max );

readln;

end.

4.

uses crt;

var n:integer;
begin
wirite ( 'nhap gia tri cua x: ' );
readln (n);
if x mod 2 = 0 then write ( 'x la so chan' )
else wirite ( 'x la so le' );
end.

5.

uses crt;
var n:intger;
begin
clrscr;
writeln('nhap vao so nguyen duong:');
readln(n);
if n >= 0 then
writeln('so ',n,' la so duong')
else
writeln('so ',n,' la so am');
if (n mod 2 = 0) then
writeln('so ',n,' la so chan')
else
writeln('so ',n,' la so le.');
readln;
end.

(Công sức đấy! Chúc bạn học tốt!)khocroi


Các câu hỏi tương tự
Dinh Vu
Xem chi tiết
phạm ngọc hân
Xem chi tiết
nguyễn thị diệu linh
Xem chi tiết
Cảnh
Xem chi tiết
Minh
Xem chi tiết
Tuấn Kiệt Phạm
Xem chi tiết
Yến Nhi Nhi
Xem chi tiết
phu
Xem chi tiết
Khoa Dương
Xem chi tiết