Hôm nay đội tuyển U23 Việt Nam đá vòng loại cuối cùng của bảng K cùng với U23 Thái Lan . Hôm nay mình sẽ ra một đề làm nhằm cỗ vũ tinh thần cho ĐT U23 Việt Nam .
Viết chương trình Pascal đoán tỉ số của U23 Việt Nam - U23 Thái Lan (Theo cú pháp U23 Viet Nam [a]* - [b]* U23 Thai Lan . Và in ra đội chiến thắng trong trận đó .
Với [a]* : là dự đoán tỉ số của U23 Việt Nam ; [b]* : là dự đoán tỉ số của U23 Thái Lan .
Phần thưởng là 5GP cho bạn có dự đoán tỉ số đúng sau hết giờ bóng lăn ( dự đoán = cách viết chương trình , lưu ý viết chương trình sai mà dự đoán tỉ số đúng cũng sẽ không được phần thưởng )
:>>>
program du_doan_ti_so;
uses crt;
var
a,b:integer
begin
clrscr;
writeln('Moi nhap a, voi a la so ban thang cua VN', a='); readln(a);
writeln('Moi nhap b, voi b la so ban thang cua TL', b='); readln(b);
writeln('Ti so la:','Viet Nam:'a,'-','Thai Lan:',b);
if (a>b) then writeln('Viet Nam thang')
else writeln('Thai Lan thang');
end.
:>>>
program du_doan_ti_so;
uses crt;
var
a,b:integer
begin
clrscr;
writeln('Moi nhap a, voi a la so ban thang cua VN', a='); readln(a);
writeln('Moi nhap b, voi b la so ban thang cua TL', b='); readln(b);
writeln('Ti so la:','Viet Nam:'a,'-','Thai Lan:',b);
if (a>b) then writeln('Viet Nam thang')
else writeln('Viet Nam thang 2-1');
end.
Var
a,b: integer;
Begin
Writeln('Hay nhap so ban thang cua Viet Nam ma ban du doan:');
readln(a);
Writeln('Hay nhap so ban thang cua Thai Lan ma ban du doan:');
readln(b);
Writeln('U23 Viet Nam',a:10:4,'-',b:10:4,'U23 Thai Lan');
if a>b then
writeln('U23 Viet Nam thang')
else
writeln('U23 Thai Lan thang');
readln;
end.
