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.

15 tháng 6 2023

#include <iostream>
#include <vector>

int main() {
    std::vector<int> sequence = {10, 3, 6, 10, 6, 12, 10, 9, 18, 19, 21, 15, 19, 24, 21, 19, 27, 27, 28, 30};

    int N;
    std::cout << "Nhap so tu nhien N: ";
    std::cin >> N;

    int termN = sequence[N - 1];

    int sum = 0;
    for (int i = 0; i < N; i++) {
        sum += sequence[i];
    }

    std::cout << "So hang thu " << N << " cua day so la: " << termN << std::endl;
    std::cout << "Tong cua " << N << " so hang dau tien cua day so la: " << sum << std::endl;

    return 0;
}

8 tháng 5 2023

Program HOC24;

var i,n,s: byte;

begin

write('Nhap N: '); readln(n);

s:=0;

for i:=1 to n do s:=s+i;

write('S = ',s);

readln

end.

#include <bits/stdc++.h>

using namespace std;

int n,kt,t;

int main()

{

cin>>n;

int t=0;

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

if (i%2==1) cout<<i<<" ";

cout<<endl;

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

{

kt=0;

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

if (i%j==0) kt=1;

if (kt==0) cout<<i<<" ";

}

return 0;

}

10 tháng 5 2023

Var a:array:[1..1000] of integer;

i,n,max:integer;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to n do 

Write(a[i]:8);

writeln;

max:=a[1];

For i:=2 to n do

if a[i] > max then max:=a[i];

write('So lon nhat la ',max);

Readln

End.

24 tháng 4 2023

Uses crt;

var i,n,k,u,f,y: longint;

a: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do read(a[i]); readln;

writeln(a[i]);

for i:=1 to n do if(a[i]<0) then k:=k+a[i];

for i:=1 to n do if(a[i]>0) then u:=u+a[i];

for i:=1 to n do if(a[i] mod 2<>0) then f:=f+a[i];

for i:=1 to n do if(a[i] mod 2=0) then y:=y+a[i];

writeln('Tong cac so am la: ',k);

writeln('Tong cac so khong am: ',u);

writeln('Tong cac so le la: ',f);

writeln('Tong cac so chan la: ',y);

readln;

end.

Bài 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/(2*i+1);

writeln(s:4:2);

readln;

end.

23 tháng 5 2022

program trungbinh;

uses crt;

var n,i: integer;

      s:real;

      A: array[1..1000] of integer;

begin

clrscr;

write('Nhap do dai day: '); readln(n);

writeln('Nhap gia tri cua day: ');

S:=0;

for i:=1 to n do

begin

 write('A[',i,']= ');

readln(A[i]);

S:=S+A[i];

end;

S:=S/n;

write('Trung binh cua cac so cua day do la: ',S);

readln;

end.