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.

uses crt;
var i,n,k,m: longint;
a:array[1..100000] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
write('Nhap k: ');readln(k);
while n<>0 do
begin
m:=n mod 10;
n:=n div 10;
i:=i+1;
a[i]:=m;
end;
if k<i then write(a[k]) else write('Ko tim duoc');
readln
end.

uses crt;
var x,k,i,t,lt,m,j,n:integer;
st:string;
a:array[1..255]of integer;
begin
clrscr;
write('nhap n='); readln(n);
writeln('Cac so Amstrong nho hon hoac bang ',n,' la: ');
for x:=1 to n do
begin
str(x,st);
k:=length(st);
for i:=1 to k do
val(st[i],a[i],m);
t:=0;
for i:=1 to k do
begin
lt:=1;
for j:=1 to k do
lt:=lt*a[i];
t:=t+lt;
end;
if t=x then write(x:4);
end;
readln;
end.

Program HOC24;
const fi='nhap.inp';
fo='nhap.out';
var f: text;
t,code,min,max,i,j: integer;
a: array[1..1000] of string;
b: array[1..1000] of integer;
s: string;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,s);
for i:=1 to length(s) do
if not(s[i] in ['0'..'9']) then s[i]:=' ';
while s[1]=#32 do delete(s,1,1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);
while s[length(s)]=#32 do delete(s,length(s),1);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
s:=s+' '; j:=0;
while length(s)<>0 do
begin
j:=j+1;
a[j]:=copy(s,1,pos(#32,s)-1);
delete(s,1,pos(#32,s));
end;
for i:=1 to j do
if a[i][1]='0' then delete(a[i],1,1);
for i:=1 to j do
begin
val(a[i],t,code);
b[i]:=t;
end;
min:=b[1]; max:=0;
for i:=1 to j do
begin
if min>b[i] then min:=b[i];
if b[i]>max then max:=b[i];
end;
writeln(f,min);
write(f,max);
close(f);
end;
begin
ip;
out;
end.

Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
Bài 2:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Tong cua ',n,' so tu nhien dau tien la: ',s);
readln;
end.
Bài 3:
uses crt;
var n,t:integer;
begin
clrscr;
n:=0; t:=0;
while t<=1000 do
begin
inc(n);
t:=t+n;
end;
writeln('Tong cua n so tu nhieu dau tien sao cho tong nho nhat lon hon 1000 la: ',t);
writeln('So lan n nang len la: ',n);
readln;
end.
Bài 4:
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a<b then writeln(a,' ',b);
if a=b then writeln('hai so bang nhau');
if b<a then writeln(b,' ',a);
readln;
end.
Bài 5:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('Gia tri nho nhat la: ',min);
readln;
end.

#include <bits/stdc++.h>
using namespace std;
long long m,n;
int main()
{
cin>>m>>n;
cout<<m*n;
return 0;
}

Lời giải :
a)
program hotrotinhoc ;
var S,n : integer ;
begin
S:=1;
for i:= 1 to n do
S:=S*i ;
write('S=',S);
readln
end.
b)
program hotrotinhoc ;
var n,k,i,j,a : integer ;
A: Real ;
begin
write('nhap n='); readln(n);
write('nhap k='); readln(k);
for i:= 1 to n do
for j:= 1 to k do
for a:= 1 to (n-k) do
A:=(i*i)/(a*a) ;
write('A=',A);
readln
end.
uses crt;
var n,k,d:longint;
st:string;
begin
clrscr;
write('n='); readln(n);
write('k='); readln(k);
if (n>=0) and (k>=0) then
begin
str(n,st);
d:=length(st);
if (k>d) or (k=0) then writeln('-1')
else writeln(st[k]);
end
else writeln('vui long nhap hai so tu nhien');
readln;
end.