viết chương trình nhập vào từ bàn phím xâu ký tự S . tính và đưa ra màn hình số lượng kí tự trog xâu
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.
uses crt;
var a:array[1..2,1..5]of integer;
i,j,t:integer;
begin
clrscr;
for i:=1 to 2 do
for j:=1 to 5 do
begin
write('A[',i,',',j,']='); readln(a[i,j]);
end;
t:=0;
for i:=1 to 2 do
for j:=1 to 5 do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
uses crt;
var a,b,c,d:integer;
{-------------------chuong-trinh-con-----------------------}
function max(x,y:integer):integer;
begin
if x<y then max:=y
else max:=x;
end;
{----------------------chuong-trinh-chinh----------------------}
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
writeln(max(a,max(b,max(c,d))));
readln;
end.
uses crt;
var x:string;
begin
clrscr;
write('x='); readln(x);
writeln(length(x));
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
uses crt;
var st:string;
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln(length(st));
readln;
end.