Chương trình con và lập trình có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Lê Phước Thịnh
30 tháng 4 2021 lúc 20:26

Câu 1: 

uses crt;

var a:array[1..100]of integer;

i,n,kt,dem,j,min,tam:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Day so vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to a[i]-1 do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then inc(dem);

end;

writeln('So luong so nguyen to la: ',dem);

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln('Gia tri nho nhat la: ',min);

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;

writeln('Day so sau khi sap xep theo chieu khong giam la:');

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Nguyễn Lê Phước Thịnh
30 tháng 4 2021 lúc 20:28

Câu 2:

uses crt;

var st:string;

i,d,kt:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

kt:=0;

for i:=1 to d do 

  if st[i]<>st[d-i+1] then kt:=1;

if kt=0 then writeln('Xau doi xung')

else writeln('Xau khong doi xung');

for i:=1 to d do 

st[i]:=upcase(st[i]);

writeln('Xau in hoa la ',s);

readln;

end.


Các câu hỏi tương tự
Nguyễn Phạm Thanh Hằng
Xem chi tiết
Võ Văn Thái
Xem chi tiết
Nguyễn Ngọc Thiên Trang
Xem chi tiết
Đàm Tường
Xem chi tiết
Ly Huong Tra
Xem chi tiết
Đạt Tạ
Xem chi tiết
trần thị phương
Xem chi tiết
hướng gấu ca
Xem chi tiết