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.
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.
Để xóa file đã lưu trong pascal ta nhấn ctrl+delete: xoá đối tượng đã chọn
ko biết đúng hay sai .làm theo những gì mình biết
-cửa sổ soạn thảo để viết câu lệnh còn cửa sổ chạy chương trình thực hiện các lệnh đó
-cửa sổ soạn thảo màu xanh còn cửa sổ chạy chương trình mà đen
-cửa sổ soạn thảo có bảng chọn ,tên tệp chương trình ,dòng cột,....còn cửa sổ chạy chương trình chỉ có tên chương trình mình đặt,dòng chữ gì đó(ngoại lệ nếu xóa phần đó)còn chỉ là màn hình đen,các lệnh mà mình nhập
uses crt;
var a:array[1..50]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do write(a[i]:4);
readln;
end.
uses crt;
var a:array[1..50]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
readln;
end.
Chọn C