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.
Để xóa file đã lưu trong pascal ta nhấn ctrl+delete: xoá đối tượng đã chọn
Tham Khảo:
a) Lưu tệp ở định dạng .pdn
b) Lưu tệp ở định dạng .png
c) Lưu tệp ở định dạng .jpg
const fi='timmax.inp';
fo='timmax.out';
var f1,f2:text;
st,xauso:ansistring;
d,i,max,x:longint;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
xauso:='';
max:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then xauso:=xauso+st[i]
else begin
val(xauso,x);
if max<=x then max:=x;
xauso:='';
end;
if max=0 then writeln(f2,'-1')
else writeln(f2,max);
close(f1);
close(f2);
end.
program TimSoDoiXung;
var
f_in, f_out: text;
n, num, tmp, rem: integer;
begin
// mở file đầu vào
assign(f_in, 'sdx.inp');
reset(f_in);
// mở file đầu ra
assign(f_out, 'sdx.out');
rewrite(f_out);
// đọc n từ file đầu vào
readln(f_in, n);
// tìm các số đối xứng
for num := 1 to n do
begin
tmp := num;
rem := 0;
while tmp <> 0 do
begin
rem := rem * 10 + tmp mod 10;
tmp := tmp div 10;
end;
if num = rem then
writeln(f_out, num);
end;
// đóng file đầu vào và đầu ra
close(f_in);
close(f_out);
end.
Chưa lưu thì làm gì có mà tìm nhỉ?
Nguyễn Nhật Minh sao thánh tỉnh như ruồi thế