Viết chương trình nhập vào 1 số nguyên dương n , in ra màn hình các số chia hết cho 5 , trong phạm vi từ 1 đến n trên cùng 1 hàng , in ra màn hình thông báo có bao nhiêu số được in.
program oken;
uses crt;
var n,i,dem:integer;
begin
clrscr;
write['nhap so n: ']; readln[n];
for i:=1 to n do
if [i mod 3=0] then
begin
write[i,' '];
dem:=dem+1;
end;
writeln;
if dem=0 then
writeln['tu 1 den ',n,' khong co so chia het cho 3.']
else
writeln['co ',dem,' so chia het cho 3.'];
readln;
end.
program bai_giai;uses crt;var x,y,i,d:longint;begin clrscr; write['Nhap x: ']; readln[X]; write['Nhap y: ']; readln[y]; d:=0; for i:=x to y do if i mod 6=0 then begin write[i,' ']; d:=d+1; end; writeln; write['Co ta ca ',d,' so']; readln;
end.
Số chẵn chia hết cho 3 là số chia hết cho 6
Có thể thay i mod 6=0 thành [i mod 2=0] and [i mod 3=0]
3 trả lời
Lệnh chèn một hàng mới bên dưới ô hiện thời [Tin học - Lớp 6]
3 trả lời
Các thuộc tính định dạng đoạn? [Tin học - Lớp 6]
3 trả lời
Cách căn dòng văn bản trong word 2016 [Tin học - Lớp 7]
3 trả lời
100 KB bằng [Tin học - Lớp 6]
5 trả lời
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Viết chương trình in ra màn hình các số chia hết cho 3 trong phạm vi từ 1 đến 20
Các câu hỏi tương tự
uses crt;var i:integer;const n=20;beginclrscr;writeln['Cac so chia het cho 3: '];for i:=1 to n do if i mod 3=0 then write[i,' '];readln
end.