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.

23 tháng 3 2019

const
fi='SMIN.INP';
fo='SMIN.OUT';
var
tam:char;
f:text;
n:string;
i:longword;
begin
assign(F,fi);
reset(F);
read(f,n);
close(F);
if (length(n)-1)<>0 then
for i:=1 to length(n)-1 do
if ord(n[i])>ord(n[i+1]) then
begin
tam:=n[i];
n[i]:=n[i+1];
n[i+1]:=tam;
break;
end;
assign(F,fo);
rewrite(F);
writeln(f,n);
close(F);
end.

10 tháng 3 2022

tham khảo:

undefined

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++) if (i%2!=0) t+=i;

cout<<t;

return 0;

}

 

26 tháng 3 2023

program TimSoDoiXung;

var

     f_in, f_out: text;

     n, num, tmp, rem: integer;

begin

     // mở file đầu vào

     assign(f_in, 'sdx.inp');

     reset(f_in);

     // mở file đầu ra

     assign(f_out, 'sdx.out');

     rewrite(f_out);

     // đọc n từ file đầu vào

     readln(f_in, n);

     // tìm các số đối xứng

     for num := 1 to n do

     begin

          tmp := num;

          rem := 0;

          while tmp <> 0 do

          begin

               rem := rem * 10 + tmp mod 10;

               tmp := tmp div 10;

          end;

          if num = rem then

               writeln(f_out, num);

     end;

     // đóng file đầu vào và đầu ra

     close(f_in);

     close(f_out);

end.

8 tháng 2 2022

t ko bt lm, ms k10