Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var m,n,dem,i:integer;
begin
clrscr;
write('m='); readln(m);
write('n='); readln(n);
if m<n then
begin
dem:=0;
for i:=m to n do
if i mod 5=0 then inc(dem);
writeln('co ',dem,' so chia het cho 5 trong pham vi tu ',m,' toi ',n);
end
else writeln('vui long nhap lai');
readln;
end.
uses crt;
var m,n,t,t1,i:integer;
begin
clrscr;
repeat
write('m='); readln(m);
write('n='); readln(n);
if m>=n then writeln('ban da nhap sai,yeu cau ban nhap lai');
until m<n;
t:=0;
t1:=0;
for i:=m to n do
begin
if i mod 3=0 then t:=t+i;
if i mod 5=0 then t1:=t1+i;
end;
writeln('tong cac so chia het cho 3 trong day so tu ',m,' toi ',n,' la: ',t);
writeln('tong cac so chia het cho 5 trong day so tu ',m,' toi ',n,' la: ',t1);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b,t,i;
int main()
{
cin>>a>>b;
t=0;
for (i=a; i<=b; i++)
if ((i%3==0) or (i%5==0)) t=t+i;
cout<<t;
return 0;
}
Program HOC24;
var i,n: integer;
S,P: longint;
begin
write('Nhap n: '); readln(n);
{..............................................}
readln
end.
-----------------------------------------------------------
Bạn điền vào {........................} theo từng bài nhé
a) S:=0;
for i:=1 to N do if i mod 2=1 then s:=s+i;
write('S= ',s);
b)
S:=0;
for i:=1 to N do if i mod 2=0 then s:=s+i;
write('S= ',s);
c) P:=1;
for i:=1 to N do if i mod 2=0 then p:=p*i;
write('P= ',p);
d)
P:=1;
for i:=1 to N do if i mod 2=1 then p:=p*i;
write('P= ',p);
uses crt;
var n,i,t1,t2,t3:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
t1:=0;
t2:=0;
t3:=0;
for i:=1 to n do
begin
if i mod 2=0 then t1:=t1+i;
if i mod 2=1 then t2:=t2+i;
if i mod 3=0 then t3:=t3+i;
end;
writeln('Tong cac so chan la: ',t1);
writeln('Tong cac so le la: ',t2);
writeln('Tong cac so chia het cho 3 la: ',t3);
readln;
end.
program tinh_tong;
uses crt;
var i,N:byte;
S:integer;
begin
writeln('Nhap so N='); readln(N);
i:=1; S:=0;
while i<=N do
begin
if (i mod 3=0) and (i mod 2=1) then S:=S+i;
i:=i+1;
end;
writeln('Tong S=',S);
readln
end.
nếu được thì mong bạn kiểm tra lại trên phần mềm dùng mình nhé, do ko có nên cx chẳng kiểm tra được. Thế nên sai thì thông cảm dùng mình nha
Chọn B nhé bạn
B nha