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 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.

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

program tinhtong;
uses crt;
var i, n, s: integer;
begin clrscr;
Write('N so tu nhien dau tien la: ');
readln(n);
s:=0;
i:=1;
while i<=n do begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cac so la: ',s);
readln
end.
giúp mình câu này luôn nhé
In ra màn hình trung bình của cấc số đã cho ở trên.
liên quan bài trên

#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
if (b==0) cout<<"Ko tinh duoc";
else
{
cout<<a+b<<endl;
cout<<a-b<<endl;
cout<<a*b<<endl;
cout<<a/b;
}
return 0;
}

uses crt;
var i,n,k:integer;
a:array[1..100]of integer;
kt:boolean;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
readln(k);
kt:=false;
for i:=1 to n do
if a[i]=k then kt:=true;
if (kt=true) then write('Co k trong mang')
else writeln('Khong co k trong mang');
readln;
end.
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.