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.

9 tháng 4 2023

Program HOC24;

var i,n: integer;

c: array[1..1000] of integer;

f: text;

begin

assign(f,'MANG3.TXT');

reset(f);

readln(f,n);

for i:=1 to n do read(f,c[i]);

close(f);

for i:=1 to n do if c[i] mod 2=1 then write(c[i],' ');

readln

end.

cứu e với mn

 

10 tháng 3 2022

program ct;

uses crt;

var

s1,s2:string;

begin

clrscr;

write('nhap ho dem: ');

readln(s1);

write('nhap ten: ');

readln(s2);

writeln('ten day du la: ',s1,' ',s2);

readln;

end.

uses crt;

var st1,st2:string;

begin

clrscr;

readln(st1,st2);

if st1>st2 then writeln('Xau st1 lon hon')

else if st2>st1 then writeln('Xau st2 lon hon')

else writeln('Hai xau bang nhau');

readln;

end.

QT
Quoc Tran Anh Le
Giáo viên
23 tháng 8 2023

ds=list(map(str,input().split()))

c={}

for i in ds:

  if i in c:

   c[i] =c[i]+1

  else:

   c[i] = 1

print('số tên khác nhau là',len(c))

print('mỗi tên có số lần xuất hiện là:')

for i in c:

  print(i, c[i])

31 tháng 3 2023

Câu 1:

ho_ten = input("Nhập họ tên: ")

tach_ho_ten = ho_ten.split()

if len(tach_ho_ten) > 1:

     ten = tach_ho_ten[-1]

     print("Tên của bạn là:", ten)

else:

     print("Nhập sai định dạng họ tên")

Câu 2: 

s = input("Nhập xâu: ")

hoa = s.upper()

print(hoa)

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Mang nguoc la: ');

for i:=n downto 1 do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  if (a[i] mod 2=0) and (i mod 2=1) then t:=t+a[i];

writeln('Tong cac so chan co chi so le la: ',t);

writeln('Cac so chia het cho 2 va 5 la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i] mod 5=0) then write(a[i]:4);

readln;

end.