Công Nghệ Bàn phím

Viết chương trình tìm số lớn nhất trong 2 số a b được nhập từ bàn phím

viết chương trình nhập vào 2 số nguyên a và b. In ra màn hình giá trị lớn nhất. Giup mình với ạ

Viết chương trình nhập vào 2 số nguyên a và b. In ra màn hình giá trị lớn nhất.

uses crt;

var a,b:integer;

begin

clrscr;

write['a=']; readln[a];

write['b=']; readln[b];

if a=b then writeln['vui long nhap hai so khac nhau']

else if a>b then writeln['so lon nhat la: ',a]

else writeln['so lon nhat la: ',b];

readln;

end.

...Xem tất cả bình luận

uses crt;

var a,b:integer;

begin

clrscr;

write['a=']; readln[a];

write['b=']; readln[b];

if a=b then writeln['vui long nhap hai so khac nhau']

else if a>b then writeln['so lon nhat la: ',a]

else writeln['so lon nhat la: ',b];

readln;

end.

uses crt;

var a,b:integer;

begin

clrscr;

write['a=']; readln[a];

write['b=']; readln[b];

if a=b then writeln['vui long nhap hai so khac nhau']

else if a>b then writeln['so lon nhat la: ',a]

else writeln['so lon nhat la: ',b];

readln;

end.

uses crt;

var a,b:integer;

begin

clrscr;

write['a=']; readln[a];

write['b=']; readln[b];

if a=b then writeln['vui ***g nhap hai so khac nhau']

else if a>b then writeln['so *** nhat la: ',a]

else writeln['so *** nhat la: ',b];

readln;

end.

uses crt; var a,b:integer; begin clrscr; write['a=']; readln[a]; write['b=']; readln[b]; if a=b then writeln['vui long nhap hai so khac nhau'] else if a>b then writeln['so lon nhat la: ',a] else writeln['so lon nhat la: ',b]; readln; end.

Viết chương trình giải ptrinh tìm số lớn nhất trong 3 số nguyên a, b, c [ a,b,c nhập từ bàn phím ]

uses crt;

var a,b:integer;

begin

clrscr;

write['a=']; readln[a];

write['b=']; readln[b];

if a=b then writeln['vui ***g nhap hai so khac nhau']

else if a>b then writeln['so *** nhat la: ',a]

else writeln['so *** nhat la: ',b];

readln;

end.

Câu hỏi hot cùng chủ đề

hằng là gì ? nêu cú pháp khai báo hằng

Trả lời [16] Xem đáp án »
Hỏi từ APP VIETJACK
Đâu là các từ khóa:A.Program,end,beginB.Program,end,begin,Readln,lop8aC.Program,then,mot,hai,bà
D.lop82,uses,begin,end