Viết chương trình nhập 2 số nguyên a và b từ bàn phím. Tính tổng 2 cô a và b và in kết quả ra màn hình
1 trả lời
Tìm x X2−4+[x−2][3−2x]=0 [Tin học - Lớp 8]
4 trả lời
Chọn đáp án đúng nhất [Tin học - Lớp 4]
2 trả lờ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. 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.
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