Question

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

B,Tính tổng bình phương các số là ước của 25 thuộc[m;n]

C, in ra màn hình các chữ số là tích của mnk

Answer 1

uses crt;
var m,n,k,s,i,t: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>=10 then writeln('Tich la so co 2 chu so')

else writeln('Tich khong la so co 2 chu so');

t:=0;

for i:=m to n do

if 25 mod i=0 then t:=t+sqr(i);

writeln('Tong binh phuong cac so la uoc cua 25 thuoc [',m,';',n,'] la: ',t);

readln;

end.