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.

2:

#include <bits/stdc++.h>

using namespace std;

int main()

{

string st;

int d,i;

getline(cin,st);

d=st.length();

for(i=d-1; i>=0; i--)

cout<<st[i];

return 0;

}

10 tháng 10 2021

Bài 1: 

uses crt;

var n,t,i,d,x:integer;

st:string;

begin

clrscr;

readln(n);

str(n,st);

d:=length(st);

t:=0;

for i:=1 to d do 

  begin

val(st[i],x);

t:=t+x;

end;

writeln(t);

readln;

end.

uses crt;

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

i,n,k,t: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 k=0 then t:=t+a[i];

writeln(t);

readln;

end.

15 tháng 10 2021

lớp 11 bth học quy hoạc động ??

 

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

writeln('Cac ki tu so co trong xau S:'); 

dem:=0;

for i:=1 to d do 

  if s[i] in ['0'..'9'] then

begin

write(s[i]:4);

inc(dem);

end;

writeln;

writeln('So ki tu chu so co trong xau S: ',dem);

for i:=1 to d do 

  if s[i] in ['0'..'9'] then s[i]:='A';

writeln('Xau sau khi doi la: ',s);

readln;

end.

25 tháng 8 2021

Mang interactive từ Codeforces lên hoc24 thì chắc chắc là mọi người khó ai làm nổi rồi (ngoại trừ một số nhân vật mới vào)

Những dạng bài như thế này thường sẽ làm kiểu kt cho đến khi biết được chắc chắn đang ở đâu

Để suy nghĩ thuật toán đã, nhưng chắc cũng dễ tưởng tượng thôi

28 tháng 8 2021

có giỏi TA thì post ở trên stackoverflow ấy, tui bó tay

7 tháng 7 2023

program bai_toan;

var

      S, S1: string;

      i, j, n: integer;

begin

      write('Nhap xau S: ');

      readln(S);

      n := length(S);

      for i := n downto 1 do

      begin

            S1 := S1 + S[i];

      end;

      for i := n downto 1 do

      begin

            if S = S1 then break;

            S := S + S1[i];

      end;

      writeln('Xau doi xung ngan nhat la: ', S);

      readln;

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;

int A[1000],n,t=0;

int main()

{

cin>>n;

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

cin>>A[i];

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

if (A[i]%2!=0) t+=A[i];

cout<<t;

return 0;

}