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.

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ả

Tl :

Khong duoc viet lung tung tren dien dang

~ H T ~

2 tháng 1 2017

bt bạn

15 tháng 1 2017

Rảnh quá ,không giống đâu

20 tháng 1 2017

o tôi xin 1 bài mẫu dạng này

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.banhqua

30 tháng 10 2017

k thấy rõ bạn ơi

à nó có updates kìa, bạn updates đi

bạn thử vào microsoft store xem

17 tháng 3 2023

xau = input("Nhập vào một xâu bất kì: ")

xau_moi = xau.replace("choi", "hoc")

print("Xâu mới sau khi thay thế là:", xau_moi)

17 tháng 3 2023

Program HOC24;

var s: string;

d: byte;

begin

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

while pos('choi',s)<>0 do

begin

d:=pos('choi',s);

delete(s,d,4);

insert('hoc',s,d);

end;

write('Xau sau khi thay la: ',s);

readln

end.

27 tháng 8 2017

phynit thầy giúp e với haha

25 tháng 12 2017

program bai1;

var

begin

write('Ten cua ban la ');readln(ten);

write('Nam hien tai la ');readln(nht);

write('Nhap nam sinh ');readln(ns);

write('Ban hoc lop ');readln(lop);

tuoi:=nht-ns;

writeln('Ten cua ban la ',tuoi);

readln

end.