VCT đếm xem có bao nhiêu số là Ước của 100 từ 10--->20
2 câu trả lời
uses crt;
var t,i: integer;
begin
clrscr;
t:=0;
for i:=10 to 20 do
if i mod 10=0 then
begin
t:=t+i;
write (i,' ');
end;
writeln;
writeln (t);
readln;
end.
program uoccua100;
uses crt;
var d,i:integer;
begin
clrscr;
d:=0;
for i:=10 to 20 do
if 100 mod i=0 then d:=d+1;
write('Tu 10->20 co ',d,' la uoc cua 100');
readln
end.
Câu hỏi trong lớp
Xem thêm
