Quảng cáo
1 câu trả lời 444
program Chiahetcho3or5;
uses crt;
var a, b, tong :integer;
begin
clrscr;
write('Nhap so thu nhat: ');
readln(a);
write('Nhap so thu hai: ');
readln(b);
tong:= a+b;
if (tong mod 3 = 0) then
writeln('Tong cua ', a,' va ', b,' chia het cho 3')
else if ( tong mod 5 = 0) then
writeln('Tong cua ', a,' va ', b,' chia het cho 5')
else
writeln('Tong cua ', a,' va ', b,' khong chia het cho 3 va 5');
readln
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86252
Gửi báo cáo thành công!
