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.

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

int t=0;

while (n>0)

{

int x=n%10;

t=t+x;

n=n/10;

}

cout<<t;

return 0;

}

Bài 2: 

#include <bits/stdc++.h>;

using namespace std;

int main();

{

long m,n;

cout<<"Nhap m="; cin>>m;

cout<<"Nhap n="; cin>>n;

cout<<m*n-2;

return 0;

}

uses crt;

var a:array[1..100]of integer;

i,n,min:integer;

begin

clrscr;

readln(n);

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

min:=a[1];

for i:=1 to n do 

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

writeln(min);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,a[1000],t;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

cin>>x;

t=0;

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

if (a[i]!=x) 

{

cout<<a[i]<<" ";

t+=a[i];

}

cout<<endl;

cout<<t;

return 0;

}

Câu 6:

Hàm tính giá trị \(F\left(a\right)=a^4\)

function tinhham(a:integer):integer;

begin

tinhham:=a*a*a*a;

end;

uses crt;

var a:array[1..200]of integer;

n,i,k,t,t1:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

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

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

t1:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t1:=t1+a[i];

writeln('Tong cac phan tu le la: ',t);

writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);

readln;

end.

18 tháng 12 2021

Câu 3: Nhập một mảng gồm N phần tử.

A, tính tổng chẵn, tổng lẻ của các phấn tử trong mảng.

B, Tìm phần tử lớn nhất, nhỏ nhất trong mảng.

C, Tìm kiếm xem phần tử K nào đó có tồn tại trong mảng hay không?

 

 

1. Cho khai báo: VAR Mang1d : ARRAY[-Nmax..Nmax] OF Integer; Khai báo trên ĐÚNG trong trường hợp nào? a Nmax phải là kiểu số nguyên hoặc kiểu ký tự hoặc kiểu logic. b Mọi trường hợp. c Nmax là một hằng số nguyên đã được khai báo trước đó. d Nmax là một biến nguyên đã được khai báo trước đó. 2. Cho mảng A gồm N số nguyên. Đoạn chương trình sau thực hiện công việc gì? Dem:=0; For i:=1 TO N DO IF A[i]>=0 THEN...
Đọc tiếp

1. Cho khai báo: VAR Mang1d : ARRAY[-Nmax..Nmax] OF Integer; Khai báo trên ĐÚNG trong trường hợp nào?

a Nmax phải là kiểu số nguyên hoặc kiểu ký tự hoặc kiểu logic.

b Mọi trường hợp.

c Nmax là một hằng số nguyên đã được khai báo trước đó.

d Nmax là một biến nguyên đã được khai báo trước đó.

2. Cho mảng A gồm N số nguyên. Đoạn chương trình sau thực hiện công việc gì?

Dem:=0;

For i:=1 TO N DO

IF A[i]>=0 THEN dem:=dem+1;

Write(dem);

a Cho biết số lượng các số nguyên dương

b Cho biết số lượng các số nguyên không âm

c Tính tổng các số nguyên dương

d Kiểm tra phần tử thứ i là số âm hay dương

3. Đoạn chương trình sau thực hiện công việc gì?

St:= ‘’; {rỗng}

FOR i:=Length(S) DOWNTO 1 DO St:=S[i]+St;

a In xâu đảo của S ra màn hình c In xâu S ra màn hình

b Tạo xâu đảo của xâu S d Tạo xâu St giống hệt xâu S

4. Chọn khai báo Xâu mà không hợp lệ:

a Var S:string[200];

b Var S:string;

c Type Xau = string[300];

Var S: Xau;

d Type Xau = string[20];

Var S: Xau;

5. Cho S là biến xâu, câu lệnh sau

for i:=length(S) downto 1 do write(S[i]); thực hiện công việc:

a Đưa ra màn hình xâu S

b Đưa ra màn hình mỗi kí tự của xâu S trên một dòng

c Đưa ra màn hình xâu đảo ngược của S

d Đưa ra màn hình các chữ cái trong xâu từ chữ cái đầu tiên đến chữ cái cuối cùng

6. Cho S là biến xâu, câu lệnh sau

for i:=1 to length(S)-1 do S[i+1]:=S[i]; thực hiện công việc:

a Gán giá trị của kí tự cuối cùng cho các kí tự còn lại của xâu

b Dịch chuyển các kí tự của xâu lui một vị trí

c Dịch chuyển các kí tự của xâu lên một vị trí

d Gán giá trị của phần tử đầu tiên cho các phần tử còn lại của xâu S

7. Cho 2 xâu: S1= ‘Cuu hoc sinh Dong Khanh’; S2= ‘Dong Khanh’; Kết quả của hàm Pos (S1, S2) là:

a Pos (S1, S2) = 0. c Pos (S1, S2) = 11.

b Pos (S1, S2) = 7. d Pos (S1, S2) = 14.

8. Cho xâu s1 = 'pascal', xâu s2 có giá trị nào trong các giá trị sau để biểu thức s1< s2 nhận giá trị TRUE

a 'pascan' b 'Pascal' c 'PASCAL' d 'Pascan'

9. Cho s:= 'Hoa học trò' thì length(s) bằng bao nhiêu?

a 9 b 11 c 12 d 13

10. Cho chương trình sau:

Program BT;

var S : String;

i : byte; begin

write('Nhap xau S: ');

readln(S);

for i:= length(S) downto 1 do write(S[i]);

readln;

end.

Chương trình trên thực hiện công việc gì ?

a Nhập một xâu từ bàn phím và đưa ra màn hình xâu đó nhưng viết theo thứ tự ngược lại.

b Nhập một xâu từ bàn phím và đưa ra màn hình xâu đó nhưng viết theo thứ tự ngược lại và độ dài xâu đó.

c Nhập một xâu từ bàn phím và đưa ra màn hình độ dài xâu đó.

d Nhập một xâu từ bàn phím và đưa ra màn hình xâu đó.

0
23 tháng 12 2020

uses crt;

var a:array[1..200]of integer;

i,n,tbc,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

  end;

writeln('Cac so duong chan la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i]>0) then write(a[i]:4);

writeln;

tbc:=0;

dem:=0;

for i:=1 to n do 

  if (-1000<=a[i]) and (a[i]<=1000) then

begin

tbc:=tbc+a[i];

dem:=dem+1;

end;

writeln('Trung binh cong cac phan tu co gia tri trong pham vi tu -1000 den 1000 la: ',tbc/dem:4:2);

readln;

end.

24 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[1000];

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

sort(a+1,a+n+1);

for (i=n; i>=1; i--) cout<<a[i]<<" ";

return 0;

}