Viết thuật toán và chương trình: Nhập vào 50 số. In ra màn hình các số vừa nhập và thông báo các số đó là số chẵn hay số lẻ CÁC BEST TIN GIÚP MIK VS !!! (ko sd mảng hộ mik nhé) MIK VOTE 5* + TRẢ LỜI HAY NHẤT NHA!!!
1 câu trả lời
Program BTH;
uses crt;
var i,n:longint;
Function kt(n:longint):Boolean;
Begin
If n mod 2=0 then kt:=true
else kt:=false;
end;
Begin
clrscr;
For i:=1 to 50 do
Begin
write('a[',i,'] ');readln(n);
If kt(n)=true then writeln(n,' la so chan')
else writeln(n,' la so le');
end;
readln;
end.
Câu hỏi trong lớp
Xem thêm
