Viết chương trình in ra màn hình các số chia hết cho 5 trong phạm vi từ 1 đến 40

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)

Phát biểu nào sau đây đúng (Tin học - Lớp 6)

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.