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.
quá đơn giản
bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>100) then writeln('ban da nhap sai,yeu cau ban nhap lai');
until (n>0) and (n<=100);
for i:=1 to n do
begin
write('a[',i.']='); readln(a[i]);
end;
{--------------xuat-day--------------}
for i:=1 to n do
write(a[i]:4);
{-------------xu-ly----------------}
dem:=0;
for i:=1 to n do
if a[i] mod 2=1 then inc(dem);
writeln('so luong so le trong day la: ',dem);
readln;
end.
bài 2:
uses crt;
var a:array[1..50]of char;
i,n:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (n>0) and (n<=50);
for i:=1 to n do
write('a[',i,']='); readln(a[i]);
{------------------xuat--------------------}
for i:=1 to n do
write(a[i]:4);
readln;
end.
bài 3:
uses crt;
var st1,st2:string;
d,d1:integer;
begin
clrscr;
write('nhap xau thu 1:'); readln(st1);
write('nhap xau thu 2:'); readln(st2);
d:=length(st1);
d1:=length(st2);
if d>d1 then writeln('xau thu 1 dai hon xau thu 2');
if d<d1 then writeln('xau thu 2 dai hon xau thu 1');
if d=d1 then writeln('hai xau co do dai bang nhau');
readln;
end.
xin lỗi bạn , mình xin sửa lại bài 2 như sau:
uses crt;
var a:array[1..50]of char;
i,n:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (n>0) and (n<=50);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------xuat--------------------}
for i:=1 to n do
write(a[i]:4);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,dem1,dem2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
dem1:=0;
for i:=1 to n do
if (a[i]>a[i-1]) and (a[i]>a[i+1]) then dem1:=dem1+1;
dem2:=0;
for i:=1 to n do
if (a[i]<a[i-1]) and (a[i]<a[i+1]) then dem2:=dem2+1;
writeln(dem1);
writeln(dem2);
readln;
end.
uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
var n,i,dem,t:integer;
a:array[1..50] of integer;
begin
dem:=0;
t:=0;
read(n);
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do
write(a[i]);
writeln;
for i:=1 to n do
if (a[i] mod 2 = 0) then dem:=dem+1;
if a[i]<a[i-1] then t:=t+1;
writeln(dem);
if t=0 then write('Co lap thanh cap so +')
else write('Ko the lap thanh cap so +');
readln;
end.
program stringManipulation;
var
st1, st2: string;
countN, i: integer;
begin
write('Nhap vao xau ki tu st1: ');
readln(st1);
countN := 0;
for i := 1 to length(st1) do
begin
if (st1[i] = 'N') or (st1[i] = 'n') then
begin
countN := countN + 1;
end;
end;
writeln('So ky tu N va n trong xau st1 la: ', countN);
st2 := '';
for i := 1 to length(st1) do
begin
if (st1[i] >= 'A') and (st1[i] <= 'Z') then
begin
st2 := st2 + st1[i];
end;
end;
writeln('Cac ky tu in hoa trong xau st1 la: ', st2);
write('Xau st1 viet theo chieu nguoc lai la: ');
for i := length(st1) downto 1 do
begin
write(st1[i]);
end;
readln;
end.
st1 = input("Nhập vào xâu kí tự: ")
count_n = 0
st2 = ""
for char in st1:
if char == 'N' or char == 'n':
count_n += 1
if char.isupper():
st2 += char
print("Số lần xuất hiện của kí tự 'N' và 'n' là:", count_n)
print("Xâu kí tự chỉ chứa kí tự in hoa là:", st2)
print("Xâu kí tự đảo ngược là:", st1[::-1])
#include <bits/stdc++.h>
using namespace std;
int A[500],n,i,dem,dem1;
int main()
{
cin>>n;
for (int i=1; i<=n; i++) cin>>A[i];
for (int i=n; i>=1; i--) cout<<A[i]<<" ";
cout<<endl;
dem=0;
for (int i=1; i<=n; i++)
if (A[i]<10) dem++;
cout<<dem<<endl;
dem1=0;
for (int i=1; i<=n; i++)
if (A[i]>1)
{
bool kt=true;
for (int j=2; j*j<=A[i]; j++)
if (A[i]%j==0) kt=false;
if (kt==true) dem1++;
}
cout<<dem1;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long a[50],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]%2==0) cout<<a[i]<<" ";
return 0;
}
uses crt;
var a:array[1..50]of char;
i,n:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (n>0) and (n<=50);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------xuat--------------------}
for i:=1 to n do
write(a[i]:4);
readln;
end.