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
ZD
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
NT
0
18 tháng 4 2020
var s:string;
n,i:integer;
begin
write('Nhap xau: '); readln(s);
n:=length(s);
writeln('Do dai xau: ',n);
for i:=1 to n do
if s[i] in ['a'..'z'] then s[i]:=upcase(s[i]);
write('Xau in hoa: ',s);
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
14 tháng 6 2020
Bài 1:
uses crt;
var a:array[1..100]of integer;
n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
kt:=0;
for i:=1 to n do
if a[i] mod 2<>0 then kt:=1;
if kt=0 then writeln('Thoa man')
else writeln('Khong thoa man');
readln;
end.
NV
2
KV
24 tháng 2 2022
Var a:array[1..100] of integer;
i,d1,d2:integer;
Begin
For i:=1 to 100 do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
End;
For i:=1 to 100 do
If a[i] mod 2 = 0 then d1:=d1+1
Else d2:=d2+1;
Writeln('So phan tu chan la ',d1);
Write('So phan tu le la ',d2);
Readln;
End.
NL
Nguyễn Lê Phước Thịnh
CTVHS
24 tháng 2 2022
uses crt;
var n,i,a[100],dem1,dem2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
writeln(dem1,' ',dem2);
readln;
end.
Gì thế ?