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.

11 tháng 11 2018

Giải thuật:

TONG.INP gồm 1 số N

- Trước hết cộng số lẻ từ 1 đến N (có được tổng S), thực hiện vòng lặp S:=S+i;

- Sau đó tiến hành cho i chạy từ 2 đến N kiểm tra điều kiện số chẵn, thực hiện S:=S-j;

Write(S); ra để xuất vào file TONG.OUT

11 tháng 11 2018

xin lỗi là ở gạch đầu dòng thứ 2 mình có ghi sai, bạn sửa lại là "Sau đó tiến hành cho j chạy..."

#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

 

13 tháng 12 2023

#include <bits/stdc++.h>
using namespace std;
typedef long long ll;
map<ll,ll> mp;
int main()
{
    ios::sync_with_stdio(0);cin.tie(0);cout.tie(0);
    freopen("MAP1.INP","r",stdin);
    freopen("MAP1.OUT","w",stdout);
    ll n; cin >> n;
    ll a[n+5];
    for(ll i=1;i<=n;i++) cin >> a[i], mp[a[i]]++;
    for(pair<ll,ll> it:mp) cout << it.first << " " << it.second << "\n";
}

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

9 tháng 6 2021

uses crt;

var i,n:integer;

s:longint;

begin

  clrscr;

  write('nhap n:');readln(n);

  s:=0;

  for i:=1 to n do

  if i mod 2=1 then s:=s+i

  else s:=s-i;

  writeln('s= ',s);

  readln;

end.

5 tháng 5 2023

Var n,s:integer;

Begin

n:=0;

s:=0;

While s<=1000 do

Begin

n:=n+1;

s:=s+n;

End;

Write('Tong la ',s);

Readln

End.

Mình sẽ tạm hiểu đề này là viết chương trình in ra các số nguyên tố lớn hơn hoặc bằng n nha

#include <bits/stdc++.h>

using namespace std;

int n,m,i;

//chuongtrinhcon

bool ktnt(int n)

if (n<2) return false; 

for (int i=2; i*i<=n; i++) 

if (n%i==0) return false; 

return true;

}

int main()

{

cin>>n;

cout<<"Cac so nguyen to nho hon bang n thoa man yeu cau la"<<endl;

for (int i=2; i<=n; i++) 

if (ktnt(i)) cout<<i<<" ";

}

22 tháng 10 2019

tính tổng các số chia hết cho 3 nhưng không chia hết cho 5 trong khoảng từ 1 tới n đúng không bạn