khó thật
K
Khách
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.
DT
3
Những câu hỏi liên quan
AC
0
BP
1
17 tháng 4 2021
uses crt;
const fi='ktt2.inp';
var f1:text;
s:string;
a:array[1..100]of integer;
n,i,x,dem,t,kt,kt1,j,max,kt2:integer;
begin
clrscr;
assign(f1,fi);reset(f1);
readln(f1,n,x);
readln(f1,s);
for i:=1 to n do
read(f1,a[i]);
t:=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 t:=t+a[i];
end;
writeln('Tong cac so nguyen to la: ',t);
dem:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt1:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt1:=1;
if (kt1=0) and (a[i]<x) then inc(dem);
end;
writeln('So luong so nguyen to nho hon ',x,' la: ',dem);
max:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt2:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt2:=1;
if (kt2=0) and (max<a[i]) then max:=a[i];
end;
if max=0 then writeln('Khong co so nguyen to nao trong day')
else writeln('So nguyen to lon nhat la: ',max);
write('Xau ',s,' theo thu tu nguoc la: ');
d:=length(s);
for i:=d downto 1 do
write(s[i]);
writeln;
close(f1);
readln;
end.
Bạn cố gắng là đc
dễ mà Đỗ Thị Ngọc Anh