Viết chương trình nhập số nguyên dương n, in ra màn hình các số nguyên dương từ 1 đến n là các số chia hết cho 3 hoặc 5
2 câu trả lời
uses crt;
var n, i: Longint;
begin
clrscr;
readln(n);
for i:=3 to n do
if(i mod 3 = 0) or (i mod 5 = 0) then
write(i,' ');
readln;
end.
uses crt;
var n,i:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
if (i mod 3=0)or(i mod 5=0) then writeln(i);
readln
end.
Câu hỏi trong lớp
Xem thêm
