Bài 6: Phép toán, biểu thức, câu lệnh gán

Trần Thị Quyên

A,Nhập 3 số nguyên dương m,n,k(m<n<k) kiểm tea xem tích mnk có tận cùng là 5 ko

B, đưa ra các số chia 3 dư 2 thuộc(m;n)

Nguyễn Lê Phước Thịnh
20 tháng 11 2020 lúc 19:03

uses crt;
var m,n,k,i,s:integer;
begin
clrscr;
repeat
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
write('Nhap k='); readln(k);
until (m<n) and (n<k) and (m>0) and (n>0) and (k>0);
s:=m*n*k;
if s mod 10=5 then writeln('Tich cua ',m,'*',n,'*',k,' co tan cung la 5')
else writeln('Tich cua ',m,'*',n,'*',k,' khong co tan cung la 5');
for i:=m to n do
if i mod 3=2 then write(i:4);
readln;
end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
xôm lường
Xem chi tiết
Smile Cong
Xem chi tiết
Lê Huy
Xem chi tiết
Đức Nguyễn Trung
Xem chi tiết
Hary Jen Li
Xem chi tiết
trần duy hiếu
Xem chi tiết
Khánh Nguyễn
Xem chi tiết
Vô Diện
Xem chi tiết
Rác Của Thiên Tài
Xem chi tiết
lee min hoo
Xem chi tiết