Tin học Viết chương trình

Phạm Tuyên

Học sinh
Thành viên
26 Tháng tám 2018
137
95
36
20
Đồng Tháp
THCS Bình Thành
program:chan_le;
var a:interger;
uses:crt;
clrscr;
begin
writeln('a');
if a mod 2 =0 then write('so a la so chan') else write('so a la so le')
readln;
end.
chúc bn hc tốt! :)
 

Há Cảo Trắng

Học sinh
Thành viên
14 Tháng năm 2018
93
38
36
21
TP Hồ Chí Minh
Không biết
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a: ');readln(a);
if a mod 2=0 then write(a,' la so chan') else write(a,' la so le');
readln;
end.
 

xuanle17

Cựu Mod Ngữ Văn
Thành viên
14 Tháng chín 2018
805
1,015
181
25
Thừa Thiên Huế
Đh sư phạm huế
=IF(Mod(A1,2), "SAI", "ĐÚNG")
A1 là ô chứa số a đó á
 
Top Bottom