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 s:string;
i,j,dem:integer;
t:boolean;
begin
clrscr;
write('Nhap xau:');readln(s);
dem:=0; for i:=1 to length(s) do
begin
t:=false;
for j:=1 to i-1 do
if((s[j])=(s[i])) then t:=true;
if not(t) then inc(dem);
end;
write('Co ',dem,' ki tu khac nhau.');
readln;
end.
Viết chương trình nhập từ bàn phím 1 số nguyên N bất kỳ kiểm tra xem số đó có chia hết cho 5 hay không in thông báo ra màn hình
a)Xác định số học sinh trong lớp cùng mang họ trần.
- Input: Họ tên học sinh .
- Output: Số học sinh mang họ trần.
b) Tính tổng của các phần tử lớn hơn 0 trong dãy n số cho trước.
- Input: Các phần tử lớn hơn 0 trong dãy n.
- Output: Tổng của các phần tử trong dãy n.
c) Tìm số các số có giá trị nhỏ nhất trong n số đã cho.
- Input: Các số trong dãy n số đã cho.
- Output: Số có trá trị nhỏ nhất trong dãy n số
INPUT: Danh sách số học sinh trong lớp.
OUTPUT: Số học sinh trong lớp mang họ Trần.
b) INPUT: Dãy gồm n số.
OUTPUT: Tổng các phần tử lớn hơn 0.
c) INPUT: Cho n số.
OUTPUT: Số các số có giá trị nhỏ nhất trong n số.
Program hotrotinhoc;
var a: array[1..32000] of integer;
i,n,j,tg,k,t: integer;
begin
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('k='); readln(k);
for i:=1 to n do
for j:=i to n do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
writeln('Day sap xep theo thu tu tang dan la :');
for i:=1 to n do
begin
write(a[i],' ');
if a[i]<k then t:=i;
end;
writeln('Day sau khi chen k : ');
for i:=1 to n do
if (a[i]<k) and (t=i) then write(a[i],' ',k,' ') else write(a[i],' ');
readln
end.
uses crt;
var a:array[1..100]of integer;
k,n,i,tam,x,t:integer;
begin
clrscr;
write('nhap so phan tu:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------------------------------}
for i:=1 to n do write(a[i],' ');
{----------------------------------------------------------------}
writeln;
writeln('day tang dan la:');
for i:=1 to n-1 do
for k:=i+1 to n do
if a[i]>a[k] then begin
t:=a[i];
a[i]:=a[k];
a[k]:=t;
end;
for i:=1 to n do write(a[i],' ');
writeln;
{--------------------------------------------}
write('nhap gia tri x:'); readln(x);
i:=1;
while(x>a[i]) and (i<=n) do
i:=i+1;
for k:=n+1 downto i do
a[k]:=a[k-1];
a[i]:=x;
writeln('mang da chen x:');
for i:=1 to n+1 do write(a[i],' ');
readln;
end.
2: #include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
if (a>b) cout<<"a lon hon b";
else if (a<b) cout<<"a nho hon b";
else cout<<"a bang b";
return 0;
}
var
i,n,k:integer;
s:longint;
a:array[1..32000] of integer;
begin
write(' nhap n : ');
readln(n);
write(' nhap k : ');
readln(k);
for i:= 1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:= 1 to n do
if a[i] mod k = 0 then s:= s+a[i];
write(' tong so chia het cho k la : ',s);
readln
end.
anh ơi cho em cái thuật toán chứ ko phải lập trình
giúp em nha chìu em kt rồi
#include <bits/stdc++.h>
using namespace std;
int main()
{
int A[100],B[100],i,n;
cin>>n;
for (int i=1; i<=n; i++)
cin>>A[i];
sort(A+1,A+n+1)
for (int i=1; i<=n; i++)
cout<<A[i]<<" ";
for (int i=1; i<=n; i++)
B[i]=A[i];
for (int i=1; i<=n; i++)
cout<<B[i]<<" ";
}