Viết chương trình Pascal đầy đủ nhập vào hai số nguyên a, b. in ra màn hình hai số nguyên vừa nhập. Sau đó in ra màn hình hai số theo thứ tự giảm dần nếu 2 số nguyên đó chẵn
1 câu trả lời
program tinh;
uses crt;
var a, b : integer;
begin
clrscr;
write('nhap so nguyen a :');readln(a);
write('nhap so nguyen b :');readln(b);
writeln('gia tri so nguyen a la :', a);
writeln('gia tri so nguyen b la :', b);
if ((a mod 2 = 0) and (b mod 2 = 0)) then
begin
if (a > b) then writeln('thu tu giam gian hai so la :', a ,' ,', b);
if (a < b) then writeln('thu tu giam gian hai so la :', b ,' ,', a);
end;
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
