K
Khách

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.

#include <bits/stdc++.h>

using namespace std;

long long a,b,i,dem;

int main()

{

cin>>a>>b;

dem=0;

for (i=a; i<=b; i++)

if (i%3==0) dem++;

cout<<dem;

return 0;
}

16 tháng 1 2022

ò mik cũng zậy
 

Tham khảo:

Uses Crt ; 
Var i , n : Integer ; 
tong: Real ; 
BEGIN 
Clrscr ; 
Write (‘ Cho so tu nhien n : ‘) ; Readln (n) ; 
tong :=0 ; 
i :=1 ; 
While i <= n Do 
Begin 
tong := tong + 1/i ; 
i := i + 1 ; 
End ; 
Writeln (‘ Tong can tim la : ‘, tong:12:6 ) ; 
Readln ; 
END .

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=0;

for (i=1; i<=n; i++)

if (i%2==0) s=s+i;

cout<<s;

return 0;
}

16 tháng 1 2022
Tính tổng N = 2+4+6+8+10 Mk nhầm
24 tháng 1 2022

Bạn kham khảo bài của mình nhé!

Program nhap_so_n;

Uses crt;

Var i,n,s:integer;

Begin clrscr;

Write('Nhap so n= ');Readln(n);

S:=0;

For i:=1 to n do

If i mod 2 = 0 do S:=S+i;

Writeln;

Write('tong cac so chan la ',S);

Readln;

End.

Mình chúc bạn học tốt!

#include <bits/stdc++.h>

using namespace std;

long long s,i,n;

int main()

{

cin>>n;

s=0;

for (i=1; i<=n; i++)

if (i%2==1) s=s+i*i;

cout<<s;

return 0;

}

16 tháng 1 2022

bn vt thành free pascal đc ko

 

Tại vì cái này là xuất ra file nên bạn hãy bỏ cái uses crt; clrscr; readln là sẽ chạy rất tốt

16 tháng 1 2022

cảm ơn rất nhiều ạ

 

const fi='dataln.txt';

fo='dataout.txt';

var f1,f2:text;

x,i,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

t:=0;

for i:=1 to 24 do 

begin

read(f1,x);

t:=t+x;

end;

writeln(f2,t);

close(f1);

close(f2);

end.