LC
1
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
GH
28 tháng 4 2017
1/
program uoc;
uses crt;
var n,i,dem,x:word;
a:array[1..20] of longint;
begin
clrscr;
write('nhap so phan tu cua day:') ;readln(n);
while n>20 do
begin
write('nhap lai so phan tu thoa man toi da la 20 phan tu:');
readln(n);
end;
writeln('nhap cac phan tu cua mang:');
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('nhap so nguyen x:'); readln(x);
dem:=0;
for i:=1 to n do
if x mod a[i] =0 then
begin
dem:=dem+1;
writeln(a[i],' la uoc cua ',x);
end;
if dem=0 then writeln('khong co phan tu la uoc cua ',x)
else write('co ',dem,' phan tu la uoc cua ',x);
readln;
end.
NA
1
Bạn nào biết làm bài này ko làm giúp mình với mình đang cần bài này ạ! Xin cảm ơn
DN
1
17 tháng 10 2021
nhìn mặc áo hình như trò chơi con mực đúng hông đấy là trò giết người hả
17 tháng 10 2021
Tl :
Khong duoc viet lung tung tren dien dang
~ H T ~
program bai_toan;
var
S, S1: string;
i, j, n: integer;
begin
write('Nhap xau S: ');
readln(S);
n := length(S);
for i := n downto 1 do
begin
S1 := S1 + S[i];
end;
for i := n downto 1 do
begin
if S = S1 then break;
S := S + S1[i];
end;
writeln('Xau doi xung ngan nhat la: ', S);
readln;
end.