Câu 1: viết chương trình nhập vào 1 số nguyên và kiểm tra xem số vừa nhập là số âm hay số dương Câu2 : giống đề trên nhưng là số Chẵn hay số Lẻ Mong mọi người giúp em
2 câu trả lời
câu 1
1: uses crt;
var n:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then writeln(n,' la so duong');
if n<0 then writeln(n,' la so am');
readln;
end.
câu 2
var a:integer;
Begin
writeln('nhap a'); readln(a);
if a mod 2=0 then write ('so chan') else write ('so le');
readln
end.
CHO mình 5 sao và trả lời hay nhất nha
Câu 1
Program Hotboy ;
Uses crt;
Var n: integer ;
Begin
Clrscr ;
Write('nhap n); readln(n);
If n> 0 then
Write('la so duong') else write('la so am');
Readln
End.
Câu $2$
Program Hotboy ;
Uses crt;
Var n: integer ;
Begin
Clrscr ;
Write('nhap n); readln(n);
If n mod 2 = 0 then
Write('la so chan') else write('la so le');
Readln
End.
Câu hỏi trong lớp
Xem thêm