Quảng cáo
2 câu trả lời 170
program chan_le;
uses crt;
var a,b,c,d:byte;
begin
clrscr;
writeln('Nhap 4 so nguyen duong:');readln(a,b,c,d);
uses crt;
var a,b,c,d:byte;
begin
clrscr;
writeln('Nhap 4 so nguyen duong:');readln(a,b,c,d);
writeln('Tich 4 so nguyen la ', a*b*c*d);
if a*b*c*d mod 2=0 then writeln(a*b*c*d,' la so chan')else writeln(a*b*c*d,' la so le');
readln
end.
if a*b*c*d mod 2=0 then writeln(a*b*c*d,' la so chan')else writeln(a*b*c*d,' la so le');
readln
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45273 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34709 -
Đã trả lời bởi chuyên gia
30493 -
Hỏi từ APP VIETJACK27870
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22249
Gửi báo cáo thành công!
