viết chương trình nhập vào từ bàn phím số nguyên dương M ( M<100) . In ra màn hình giá trị các số là bội chung của 4 và 6 trong đoạn [1,M] và cho bt tổng các số đó
1 câu trả lời
uses crt;
var m, res, i: longint;
begin
clrscr;
readln(m);
for i:=4 to m do
if i mod 24 = 0 then
begin
write(i, ' ');
inc(res, i);
end;
writeln();
writeln(res);
readln;
end.
Câu hỏi trong lớp
Xem thêm
