Việt chương trình nhập từ bàn phím 2 số nguyên

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 [15] 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

• Lệnh writeln có chức năng gì?