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 x,y:integer;
begin
clrscr;
readln(x);
y:=sqr(x);
writeln(y);
readln;
end.
Câu 1:
const fi='xau.inp';
fo='xau.out';
var s:string;
d,i:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
d:=length(s);
for i:=1 to d do
if s[i]<>'A' then write(f2,s[i]);
close(f1);
close(f2);
end.
Câu 2:
const fi='xau.inp';
fo='xau.out';
var s:string;
d,i,dem:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]=' ' then inc(dem);
writeln(f2,dem+1);
close(f1);
close(f2);
end.
Câu 1:
const fi='xau.inp';
fo='xau.out';
var f1,f2:text;
s:string;
i,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
d:=length(s);
for i:=1 to d do
if s[i]='A' then
begin
delete(s,i,1);
d:=length(s);
end;
for i:=1 to d do write(f2,s[i]);
close(f1);
close(f2);
end.
Câu 2:
const fi='xau.inp';
fo='xau.out';
var f1,f2:text;
s:string;
i,d,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]=' ' then inc(dem);
writeln(f2,dem+1);
close(f1);
close(f2);
end.
Bài 2:
uses crt;
var a:string;
i,dem,d:integer;
begin
clrscr;
write('nhap xau:'); readln(a);
d:=length(a);
dem:=0;
for i:=1 to d do
if a[i] in ['0'..'9'] then dem:=dem+1;
writeln('so ki tu chu so trong xau la: ',dem);
readln;
end.
Bài 3:
uses crt;
var s:string;
i,dem,d:integer;
begin
clrscr;
write('nhap xau:'); readln(s);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]='k' then inc(dem);
if dem=0 then writeln('KHONG CO')
else writeln('so ki tu K trong day la: ',dem);
readln;
end.
uses crt;
var a:array[1..200]of integer;
n,i,k,t,t1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
t1:=0;
for i:=1 to n do
if a[i] mod k=0 then t1:=t1+a[i];
writeln('Tong cac phan tu le la: ',t);
writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);
readln;
end.
Không ra kết quả vì K quá giới hạn cho phép
Cách khắc phục: Dùng repeat until hoặc while do để giới hạn K. Khi K vượt quá thì hệ thống yêu cầu nhập lại
cam on nhieu nhe