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
ML
9 tháng 7 2019
Bạn viết các từ 'WriteIn' và 'ReadIn' sai nhé.
Bạn ghi từ WriteIn và ReadIn ở chữ L bạn lại in hoa chữ I .
Sửa lại chương trình hoàn chỉnh :
Program Vi_du;
Uses Crt;
Var k:byte;
Begin
Clrscr;
Writeln('Nhap so 0 de ket thuc: ');
Repeat
Write('Nhap ma cua ki tu: ');Readln(k);
Writeln('Ki tu co ma ', k, 'la ' , Chr(k) );
Until k=0;
End.
HV
1
HD
22 tháng 9 2025
Nguồn mở miễn phí nhưng không được chọn nhiều bằng nguồn đóng vì vấn đề tương thích, hỗ trợ, thói quen sử dụng, thương hiệu.
DT
2
NL
Nguyễn Lê Phước Thịnh
CTVHS
4 tháng 5 2021
Câu 1:
const fi='dulieu.dat';
fo='thaythe.out';
var f1,f2:text;
a:array[1..100]of string;
n,d,i,vt:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n]);
end;
for i:=1 to n do
begin
d:=length(a[i]);
vt:=pos('anh',a[i]);
while vt<>0 do
begin
delete(a[i],vt,3);
insert('em',a[i],vt);
vt:=pos('anh',a[i]);
end;
end;
for i:=1 to n do
writeln(f2,a[i]);
close(f1);
close(f2);
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
4 tháng 5 2021
Câu 2:
uses crt;
const fi='mang.inp';
fo='sapxep.out';
var f1,f2:text;
a:array[1..100]of integer;
i,n,tam,j:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
assign(f2,fo); rewrite(f2);
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
write(f1,a[i]:4);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(f2,a[i]:4);
close(f1);
close(f2);
end.
27 tháng 3 2020
Program Day_con1b;
Type KM= array[1..100] of integer;
Var M:KM; k,i,j,n,ldau, dai,
Max: integer;
Function TONG(A:KM;m,l:byte):Integer;
Var Tam,i:integer;
Begin
Tam:=0;
For i:=m to m+l do
Tam:=Tam + A[i];
TONG:=Tam;
End;
Begin
Write('Nhap so n: '); Readln(n);
For i:=1 to n do
Begin
Write('[',i,']=');
Readln(M[i]);
End;
Max:=M[1];
dai:=1;
ldau:=1;
For i:= 1 to n do
For j:=0 to n-i+1 do
if TONG(M,i,j)> Max then
Begin
ldau:=i;
Max:=Tong(M,i,j) ;
dai:=j+1
End;
for k:=ldau to ldau+dai-1 do
write(m[k],' ');
Readln
End.