Question

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)

Answer 1

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.