viết chương trình tìm số lớn nhất 2 số a và b câu a dạng đủ câu b dạng thiếu

1 câu trả lời

Đủ:

uses crt;
var a, b: word;

begin
clrscr;
    read(a,b);
    if a > b then
        writeln(a)
    else
        writeln(b);
readln; readln;
end.

Thiếu:

uses crt;
var a, b: word;

begin
clrscr;
    read(a,b);
    if a > b then writeln(a);
    if b > a then writeln(b);
readln; readln;
end.

Câu hỏi trong lớp Xem thêm