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.
var s:string;
i:integer;
begin
write('Nhap xau ki tu S = ');readln(s);
for i:=1 to length(s) do
begin
if s[i] <> '0' then write('Vi tri cua so 0 cuoi cung la ',i-1);
i:=length(s);
end;
readln;
end.
câu 1
Program Nguyen_to;
Var n,i:integer;
Function NT(n:integer):Boolean;
Var ok: Boolean;
i: integer;
Begin ok:=true;
for i:=2 to n-1 do if (n mod i)= 0 then ok:=ok and false;
if n < 2 then NT:=false else NT:=ok;
End;
Begin Write('Nhap n: ');
Readln(n); i:=n;
Repeat i:=i+1;
Until NT(i);
Write('So nguyen to nho nhat lon hon ',n, 'la: ',i);
Readln End.
câu 2
uses crt;
const so: set of char=['0','1','2','3','4','5','6','7','8','9'];
var a:array[1..100] of integer;
st,b:string;
c,l,i,n,j:integer;
s, Max: integer;
begin clrscr;
write('Nhap xau:');
readln(st);
l:=length(st);
i:=1;
n:=0;
repeat if (st[i] in so) then begin b:='';
repeat b:=b+st[i];
inc(i);
until (not(st[i] in so)) or (i>l);
inc(n);
val(b,a[n],c);
end;
inc(i);
until i>l;
Max:=a[1];
for i:=2 to n do If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
readln;
end.
#include <iostream>
using namespace std;
int main()
{
int n,i,j;
cout<<"Nhap n="; cin>>n;
for (i=1; i<=n; i++)
{
for (j=i; j<=i+n-1; j++)
cout<<j<<" ";
cout<<endl;
}
return 0;
}
Chương trình trên cho phép người dùng nhập vào dãy số và giá trị K. Sau đó, chương trình sẽ tìm tất cả các đoạn con trong dãy có tổng bằng K và in chúng ra màn hình.
Ví dụ, với dãy số [1, 2, 3, 4, 5] và K = 7, chương trình sẽ in ra:
2 3 4 5 2Đây là tất cả các đoạn con có tổng bằng 7 trong dãy số đã cho.
A = ["1", "2", "3", "4", "5"]
S = " ".join(A) # Nối các phần tử trong danh sách A thành xâu mới, cách nhau bởi khoảng trắng
S = '"' + S + '"' # Thêm dấu ngoặc kép ở đầu và cuối xâu
print(S) # In ra xâu S
#Kết quả in ra: "1 2 3 4 5"
length = len(S) # Tính độ dài của xâu S
print(length) # In ra độ dài
#Kết quả in ra: 11