vct nhập vào 1 số n
a. đếm xem có bao nhiêu số lẻ chia hết cho n từ 1 đến 100. in đếm và các số đó
b. in ra màn hình các số chia cho 5 từ 1 đến 50
c. tính tích các số chia hết cho 5 và n từ 1 đến 100. in tích và các số đó
Quảng cáo
1 câu trả lời 1564
var n,dem,i: integer;
tich: longint;
begin
tich:=1;
write('Nhap N= ');read(n); writeln;
begin
write('Cac so le chia het cho ',n,' la');writeln;
for i:= 1 to 100 do
if (i mod n = 0) and (i mod 2 <> 0) then write(i:4);writeln;
end;
begin
for i:= 1 to 100 do
if (i mod n = 0) and (i mod 2 <> 0) then dem:= dem + 1;
write('Dem = ', dem);writeln;
end;
begin
write('Cac so chia het cho ', n,' va 5 tu 1 den 50 la ');writeln;
for i:= 1 to 50 do
if (i mod n = 0) and (i mod 5=0) then write(i:4);writeln;
end;
begin
for i:= 1 to 100 do
if (i mod n = 0) and (i mod 5=0) then tich:= tich * i;
write('Tich cac so tu 1 den 100 chia het cho ', n, ' va 5 = ', tich); writeln;
end;
readln;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
4109