Tìm các số chia hết cho 3 trong đoạn a, b

*Pascal:

program baitap;

uses crt;

var a, b, i: integer;

begin clrscr;

write('Nhap a: ');readln(a);

write('Nhap b: ');readln(b);

write('Cac so chia het cho 3 tu a den b la: ');

for i:=a to b do if i mod 3 = 0 then write(i,#32);

readln end.

$#giahanle20$

Chúng ta nên dùng sàng để chương trình được tối ưu hơn và thuật toán các số chia hết cho 3 trong [a,b] là:b/3-(a-1)/3

⇒

*Code C++:

#include <bits/stdc++.h>
using namespace std;
int main()
{
    long long a,b,ans=0;
    cin>>a>>b;
    ans=b/3-(a-1)/3;
    cout<<ans;
}

*Code Pascal:

var a,b:int64;
begin
  read(a,b);
  write(b/3-(a-1)/3:0:0);
end.

Chúc bạn học tốt

$#nguyenanh21811$

Mong đây là câu trả lời hay nhất