K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

18 tháng 12 2022

loading...  

18 tháng 12 2022

Cảm ơn nhiều

27 tháng 12 2022

uses crt;

var a,b,c,max:integer;

begin

clrscr;

write('nhap ba so:');readln(a,b,c);

if a mod 2=0 then writeln(a,' la so chan')

else writeln(a,'la so le);

if b mod 2=0 then writeln(b,'la so chan')

else writeln(b,'la so le');

if c mod 2=0 then writeln(c,'la so chan')

else writeln(c,'la so le');

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln('so lon nhat trong ba so la:',max);

readln

end.

 

 

18 tháng 12 2022

CHọn C

17 tháng 12 2022

Chọn A

17 tháng 12 2022

var a: integer;
begin
 write('nhap a'); readln(a);
 if a mod 2 <> 0 then write('a la so le');
 readln
end.