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.

19 tháng 3 2020
https://i.imgur.com/LRm4MuE.png

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.

9 tháng 5 2019

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.

27 tháng 4 2020

thank you

14 tháng 4 2023

Program HOC24;

var i,n,k,d: integer;

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

begin

readln(n,k);

for i:=1 to n do read(a[i]); readln;

d:=0;

for i:=1 to n do if a[i]=k then d:=d+1;

write(d);

readln

end.

Cho sâu S có độ dài không qúa 255 kí tự chỉ gồm các kí tự chữ cái thường và chữ số( đoạn các ký tự số liên tiếp tạo thành một số nguyên, ở mỗi đoạn ký tự số liên tiếp phải trích ra số lớn nhất có thể, mỗi số lấy ra không có các số 0 không có nghĩa. Ví dụ, với sâu là aab04dhf23vf789 các số được trích ra là 4,234,789) hãy viết chương trình tìm số bé nhất và số lớn nhất...
Đọc tiếp

Cho sâu S có độ dài không qúa 255 kí tự chỉ gồm các kí tự chữ cái thường và chữ số( đoạn các ký tự số liên tiếp tạo thành một số nguyên, ở mỗi đoạn ký tự số liên tiếp phải trích ra số lớn nhất có thể, mỗi số lấy ra không có các số 0 không có nghĩa. Ví dụ, với sâu là aab04dhf23vf789 các số được trích ra là 4,234,789) hãy viết chương trình tìm số bé nhất và số lớn nhất trong các số được trích ra?

Dữ liệu vào cho trong tệp văn bản timso.inp gồm một sâu S chỉ chứa các ký tự chữ cái thường và chữ số. Kết quả: đưa ra tệp văn bản timso.out:

-Dòng 1 đưa ra số bé nhất tìm được.

-Dòng 2 đưa ra số lớn nhất tìm được.

Bài này làm theo dạng nhập, xuất file nhé.

Các bạn đừng làm theo dạng nhập từ bàn phím.

Rất cám ơn ạ!

1
12 tháng 7 2020

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ạn có đọc kỹ đề không vậy?

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.

3. Viết chương trình nhập vào một mảng hai chiều gồm các số thực. Biết rằng kích thước của mảng 2 chiều là n x n trong đó n là một số nguyên được nhập vào từ bàn phím a. Tính tổng các số trên đường chéo chính b. Tìm các số lớn nhất trong mỗi hàng và lưu tất cả các số đó vào một mảng 1 chiều c. Tính tổng của các số âm và các số dương trên dòng k, biết...
Đọc tiếp

3. Viết chương trình nhập vào một mảng hai chiều gồm các số thực. Biết rằng kích thước của mảng 2 chiều là n x n trong đó n là một số nguyên được nhập vào từ bàn phím

a. Tính tổng các số trên đường chéo chính

b. Tìm các số lớn nhất trong mỗi hàng và lưu tất cả các số đó vào một mảng 1 chiều

c. Tính tổng của các số âm và các số dương trên dòng k, biết rằng k là một đại lượng được nhập vào từ bàn phím nằm trong khoảng từ 1 đến n

4. Viết chương trình điền các số từ 1 đến n2 vào trong một bảng vuông (mảng hai chiều có kích thước n x n) sao cho tổng các số trên mỗi hàng, mỗi cột và trên hai đường chéo đều bằng nhau. Biết rằng n là một số lẻ lớn hơn hoặc bằng 3 được nhập vào từ bàn phím. Yêu cầu : nếu người sử dụng nhập số n sai yêu cầu thì chương trình sẽ yêu cầu nhập lại, quá trình nhập sẽ dừng khi số n nhập vào thỏa mãn yêu cầu.

Ví dụ: Với N=3 và N=5 ta có


a. Nhập vào hai mảng hai chiều A và B có kích thước n x n, trong đó các phần tử của hai mảng này chứa các giá trị số thực và n là một số nguyên dương được nhập vào từ bàn phím – A, B được gọi là hai ma trận vuông.5. Sử dụng chương trình con để viết chương trình thực hiện các yêu cầu sau :

b. Tính ma trận C = A + B

c. Tính ma trận D = A x B

0

#include <bits/stdc++.h>

using namespace std;

long long m,n;

int main()

{

cin>>m>>n;

cout<<m*n;

return 0;

}

11 tháng 4 2019

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.

11 tháng 4 2019

phần a chỗ var thiếu i ạ?