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.

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

freopen("bai2.inp","r",stdin);

freopen("bai2.out","w",stdout);

cin>>n;

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

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

if (a[i]%2==0) 

{

x=a[i];

break;

}

cout<<x<<endl;

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

if (a[i]==x) cout<<i<<" ";

return 0;

}

Câu 4: 

fucntion tong(x:integer):integer;

var st:string;

d,i,n,y,t:integer;

begin

str(x,st);

d:=length(st);

t:=0;

for i:=1 to d do 

  begin

val(st[i],n,y);

t:=t+n;

end;

tong:=t;

end;

Câu 2: 

const fi='bai2.inp';

fo='bai2.out';

var f1,f2:text;

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

n,i,t:integer;

begin

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

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

readln(f1,n);

for i:=1 to n do 

read(f1,a[i]);

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

2 bài toán có dùng cấu trúc lặp:

-Xuất 20 số bắt đầu từ số 1

-Tính tổng 10 số bắt đầu từ số 1

Thuật toán

-Tính tổng 10 số bắt đầu từ số 1

+Bước 1: t←0; a←1; i←1;

+Bước 2: t←t+a; 

+Bước 3: a←a+1;

+Bước 4: i←i+1;

+Bước 5: Nếu i<=10 thì quay lại bước 2

+Bước 6: Xuất t

+Bước 7: Kết thúc

uses crt;

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

i,n,t,j,tam:integer;

begin

clrscr;

readln(n,k);

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

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end;

write(a[k]);

readln;

end.

28 tháng 2 2023

program sonho;

var

     arr:array[1..100] of integer;

     k, n, i, min: integer;

begin

     write('Nhap n: ');

      readln(n);

     write('Nhap cac phan tu cua day: ');

     for i := 1 to n do

     begin

          readln(arr[i]);

     end;

     write('Nhap k: ');

     readln(k);

     min := arr[1];

     for i := 2 to k do

     begin

          if (arr[i] < min) then

               min := arr[i];

     end;

     writeln('So nho thu ', k, ' trong day la: ', min);

end.

Câu 1: 

const fi='dulieu.dat';

fo='thaythe.out';

var f1,f2:text;

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

n,d,i,vt:integer;

begin

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

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

n:=0;

while not eof(f1) do 

  begin

n:=n+1;

readln(f1,a[n]);

end;

for i:=1 to n do 

  begin

d:=length(a[i]);

vt:=pos('anh',a[i]);

while vt<>0 do 

  begin

delete(a[i],vt,3);

insert('em',a[i],vt);

vt:=pos('anh',a[i]);

end;

end;

for i:=1 to n do 

  writeln(f2,a[i]);

close(f1);

close(f2);

end.

Câu 2: 

uses crt;

const fi='mang.inp';

fo='sapxep.out';

var f1,f2:text;

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

i,n,tam,j:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

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

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  write(f1,a[i]:4);

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]>a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(f2,a[i]:4);

close(f1);

close(f2);

end.

14 tháng 3 2023

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

i,s:integer;

Begin

For i:=1 to 100 do

Begin

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

If a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln;

End.

15 tháng 3 2023

em cảm ơn ạ <3

#include <bits/stdc++.h>

using namespace std;

long long a[50],i,n,t;

int main()

{

cin>>n;

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

{

cin>>a[i];

if (a[i]<0 || a[i]>10) cin>>a[i];

}

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

cout<<endl;

t=0;

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

cout<<t;

return 0;

}

27 tháng 2 2023

var A:

     array[1..n] of integer;

     i, j, n: integer;

begin

     write('Nhap so phan tu cua mang: ');

     readln(n);

     for i := 1 to n do

     begin

          write('Nhap phan tu thu ', i, ': ');

          readln(A[i]);

     end;

 

     for i := 1 to n - 1 do

         for j := i+1 to n do

            if (A[i] mod 2 = 0) and (A[j] mod 2 = 0) and (A[i] < A[j]) or (A[i] mod 2 = 1) and (A[j] mod 2 = 1) and (A[i] > A[j]) then

            begin

                swap(A[i], A[j]);

            end;

     writeln('Mang da sap xep la: ');

      for i := 1 to n do

         writeln(A[i]);

end.

 
11 tháng 12 2021

 Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,t,k;

int main()

{

cin>>n>>k;

t=0;

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

{

cin>>x;

if (x%k==0) t=t+x;

}

cout<<t;

return 0;

}

28 tháng 12 2021

Câu 7: B

Câu 6: B