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.

1 tháng 7 2023

var i, so: integer;

begin
  writeln('Nhap vao 10 so tu nhien:');
  for i := 1 to 10 do
  begin
    write('So thu ', i, ': ');
    readln(so);
    writeln('So vua nhap la: ', so);
  end;
  readln;
end.

1 tháng 7 2023

program  Nenxau;

var s: string;
        i, count: integer;
        c: char;

begin
  readln(s);
  count := 1;
  c := s[1];
  for i := 2 to length(s) do
    begin
      if s[i] = c then
        inc(count)
      else
        begin
          write(count);
          write(c);
          count := 1;
          c := s[i];
        end;
    end;
  write(count);
  write(c);
end.

30 tháng 6 2023

#include<bits/stdc++.h>

using namespace std;

bool isPerfectSquare(int n) {

      int sqr = sqrt(n);

      return (sqr * sqr == n);

}

void printPerfectSquares(int arr[], int n) {

      for (int i = 0; i < n; i++) {

            if(isPerfectSquare(arr[i])) {

                  cout << arr[i] << " la so chinh phuong" << endl;

            }

      }

}

int main() {

      int arr[] = {1, 4, 9, 16, 25, 36, 49, 64, 81, 100};

      int n = sizeof(arr) / sizeof(arr[0]);

      printPerfectSquares(arr, n);

      return 0;

}

30 tháng 6 2023

#include<bits/stdc++.h>

using namespace std;

void distinctElements(int arr[], int n) {

      int i, j, count = 1;

      sort(arr, arr + n);

      for(i = 0; i < n - 1; i++) {

            if (arr[i] != arr[i + 1]) {

                  count++;

                  out << arr[i] << " ";

            }

      }

      cout << arr[n - 1] << " ";

      cout << "\nSo phan tu khac nhau cua mang la: " << count << endl;

}

int main() {

      int arr[] = {1, 2, 3, 4, 4, 5, 6, 6, 7, 7, 7, 8, 9, 9};

      int n = sizeof(arr) / sizeof(arr[0]);

      distinctElements(arr, n);

      return 0;

}

30 tháng 6 2023

67656

 

30 tháng 6 2023

#include<bits/stdc++.h>

using namespace std;

int findSecondLargest(int arr[], int n) {

      sort(arr, arr + n, greater<int>());

      return arr[1];

}

int main() {

      int arr[] = {10, 20, 30, 40, 50};

      int n = sizeof(arr) / sizeof(arr[0]);

      int secondLargest = findSecondLargest(arr, n);

      cout << "So lon thu hai trong mang la: " << secondLargest << endl;

      return 0;

}

30 tháng 6 2023

896796

30 tháng 6 2023

#include<bits/stdc++.h>

using namespace std;

void sortAscending(int arr[], int n) {

       sort(arr, arr + n);

}

int main() {

       int arr[] = {10, 5, 8, 7, 6};

       int n = sizeof(arr) / sizeof(arr[0]);

       sortAscending(arr, n);

       for(int i = 0; i < n; i++) {

              cout << arr[i] << " ";

       }

       cout << endl;

       return 0;

}

30 tháng 6 2023

#include<bits/stdc++.h>

using namespace std;

bool isPrime(int n) {

     if(n <= 1) return false;

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

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

     }

     return true;

}

void printPrimes(int arr[], int n) {

     for(int i = 0; i < n; i++) {

          if(isPrime(arr[i])) {

               cout << arr[i] << " la so nguyen to" << endl;

          }

     }

}

int main() {

     int arr[] = {2, 3, 4, 5, 6, 7, 8, 9, 10};

     int n = sizeof(arr) / sizeof(arr[0]);

     printPrimes(arr, n);

     return 0;

}

30 tháng 6 2023

#include<bits/stdc++.h>

using namespace std;

int sumOfOddElements(int arr[], int n) {

       int sum = 0;

       for(int i = 0; i < n; i++) {

              if(arr[i] % 2 != 0) {

                     sum += arr[i];

              }

       }

       return sum;

}

int main() {

       int arr[] = {1, 2, 3, 4, 5};

       int n = sizeof(arr) / sizeof(arr[0]);

       int sumOfOdd = sumOfOddElements(arr, n);

       cout << "Tong cac phan tu le cua mang la: " << sumOfOdd << endl;

       return 0;

}

30 tháng 6 2023

program superSymmetricalSubstring;

var

      s: string;

function isSymmetrical(str: string): boolean;

var

      i, len: integer;

begin

      len := length(str);

      for i := 1 to len div 2 do

      begin

            if str[i] <> str[len - i + 1] then

            begin

                  exit(false);

            end;

      end;

      exit(true);

end;

function countSuperSymmetricalSubstrings(s: string): integer;

var

      i, j, len, count: integer;

begin

      len := length(s);

      count := 0;

      for i := 1 to len do

      begin

            for j := 2 to len - i + 1 do

            begin

                  if isSymmetrical(copy(s, i, j)) then

                  begin

                        count := count + 1;

                  end;

            end;

      end;

      count := count + len;

      exit(count);

end;

begin

      write('Nhap xau S: ');

      readln(s);

      writeln('So xau con sieu doi xung cua S: ', countSuperSymmetricalSubstrings(s));

      readln;

end.

30 tháng 6 2023

sao mình chạy nó ra 12 v bạn