viết chương trình nhập ba số a,b,c từ bàn phím.Hãy in ra màn hình số lớn nhất

Question

thanhthuy · Answer

program so_nao_lon_nhat;

uses crt;

var:a,b,c:integer;

begin

clrscr;

writeln(‘moi ban nhap a:’);

readln(a);

writeln(‘moi ban nhap b:’);

readln(b);

writeln(‘moi ban nhap c’);

readln(c);

a:=max;

if b>a then b=max;

if c>b then c=max;

writeln(‘so lon nhat la:’ ,max);

readln;

end.

XIN HAY NHẤT

Trả lời

tuyetnhung · Answer

Program Tim_max;

Uses crt;

Var a,b,c,max: integer;

Begin

Clrscr;

Write(‘nhapsoa’);Readln(a);

Write(‘nhapsob’);Readln(b);

Write(‘nhapsoc’);Readln(c);

max:=a;

If b>max then max:=b;

If c>max then max:=c;

Writeln(‘solonnhatla:’,max);

Readln;

End.