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.

30 tháng 12 2021

1:

uses crt;

const fi='songuyen.doc';

var i:integer;

f1:text;

begin

clrscr;

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

for i:=1 to 10 do write(f1,i:4);

close(f1);

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=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=d downto 1 do 

  write(st[i]);

readln;

end.

18 tháng 2 2021

Program HOC24;

var i.n: integer;

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

begin

for i:=1 to n do

begin

write('Nhap diem toan cua ban thu ',i,': '); readln(a[i]);

end;

for i:=1 to n do write(a[i],' ');

readln

end.

18 tháng 2 2021

uses crt;

var i,n:integer;     A: Array[1..50] of integer;begin        clrscr;        readln(n);readln(k);        for i:=1 to n do        begin                write('A[',i,'] = ');                readln(A[i]);        end;        for i:=1 to A[i] do        if (A[i] > k) then write(A[i]);        readlnend.

uses crt;

const fi='dst.txt';

var f1:text;

a,b:integer;

begin

clrscr;

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

readln(f1,a);

readln(f1,b);

writeln('Tong cua hai so la: ',a+b);

writeln('Gia tri tuyet doi hieu hai so la: ',abs(a-b));

readln;

end.