các bạn giúp mình viết bằng code pascal bài này với
Những câu hỏi liên quan
bạn nào giúp mình làm bài này được ko! làm bằng pascal ấy
Viết ct nén xâu sau:
| Input | Output |
| AACCBBB | A2C2B3 |
| ABABUUC | (AB)2U2C |
giúp mình làm bài bằng pascal nha bài này hơi khó mình cảm ơn
uses crt;
var st,k,t:string;
d,dem,i:integer;
begin
clrscr;
readln(st);
d:=length(st);
k=''
dem=1;
for i:=2 to d do
begin
if st[i]=st[i-1] then inc(dem);
if st[i]<>st[i-1] then
btegin
str(dem,t);
if dem>1 then k:=k+t+st[i-1];
else k:=k+st[i-1];
dem=1;
end;
if (i=d) then
begin
str(dem,t);
if dem>1 then k:=k+t+st[i];
else k:=k+st[i];
end;
end;
write(k);
readln;
end.
Đúng 0
Bình luận (1)
giúp mình code bài này bằng C++ ạ
Em hãy viết chương trình nhập vào mảng A gồm 100 phần tử. tính và đưa ra màn hình tổng các phần tử không chia chết cho 2 trong mảng. Mn ơi giúp mình làm bài này với ạ TT mình cảm ơn mọi người nhiều!! (pascal nhé mấy bạn ơi
Var a:array[1..100] of integer;
i,s:integer;
Begin
For i:=1 to 100 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
If a[i] mod 2 <> 0 then s:=s+a[i];
End;
Write('Tong la ',s);
Readln;
End.
Đúng 1
Bình luận (1)
Bạn nào biết làm bài này theo pascal thì giúp mình với được ko ạ? Mình cảm ơn nhiều lắm luôn :((
Mọi người giúp mình bài này với ạ :
Viết chương trình pascal nhập mảng và tìm số nhỏ thứ k trong mảng
uses crt;
var a:array[1..100]of integer;
i,n,t,j,tam:integer;
begin
clrscr;
readln(n,k);
for i:=1 to n do readln(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end;
write(a[k]);
readln;
end.
Đúng 3
Bình luận (0)
program sonho;
var
arr:array[1..100] of integer;
k, n, i, min: integer;
begin
write('Nhap n: ');
readln(n);
write('Nhap cac phan tu cua day: ');
for i := 1 to n do
begin
readln(arr[i]);
end;
write('Nhap k: ');
readln(k);
min := arr[1];
for i := 2 to k do
begin
if (arr[i] < min) then
min := arr[i];
end;
writeln('So nho thu ', k, ' trong day la: ', min);
end.
Đúng 1
Bình luận (0)
Làm giúp mình bài này với ạ,mình đang cần gấp
Em hãy viết chương trình Pascal để tính tổng của dãy số An(A1,A2,A3, ...,An) với n được nhập từ bàn phím.Em hãy viết chương trình để in ra tổng các số chẵn của dãy An
uses crt;
var x,n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then t:=t+x;
end;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);
end.
Đúng 0
Bình luận (0)
Giúp mình bài viết này với các bạn ơi!!!
Mọi người giúp mình bài này với ạ:
Viết chương trình pascal nhập 1 mảng sắp xếp số chẵn giảm dần và số lr tăng dần
var A:
array[1..n] of integer;
i, j, n: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
for i := 1 to n - 1 do
for j := i+1 to n do
if (A[i] mod 2 = 0) and (A[j] mod 2 = 0) and (A[i] < A[j]) or (A[i] mod 2 = 1) and (A[j] mod 2 = 1) and (A[i] > A[j]) then
begin
swap(A[i], A[j]);
end;
writeln('Mang da sap xep la: ');
for i := 1 to n do
writeln(A[i]);
end.
Đúng 1
Bình luận (0)