trinh giải các bài toan sau: (Chủ ý: Dữ liệu vào luôn đảm bảo chính xác theo giới hạn dữ liệu, không cần phải kiểm tra.) Bài 1: Năm đặc biệt Năm 2020 là một nă
trinh giải các bài toan sau: (Chủ ý: Dữ liệu vào luôn đảm bảo chính xác theo giới hạn dữ liệu, không cần phải kiểm tra.) Bài 1: Năm đặc biệt Năm 2020 là một năm đặc biệt bởi con số 2020 được cấu tạo bởi 2 số 20 viết liên tiếp. Cho trước một năm bất kỳ, hãy xác định xem năm đó có tính chất tương tự năm 2020 hay không, tức là có được tạo bởi 2 số giống nhau viết liên tiếp hay không. Dữr liệu vào từ tệp văn bản NAMDB.INP o Số nguyên dương n là năm cần kiểm tra. Kết quả ghi vào tệp văn bản NAMDB.OUT o Ghi "YES" nếu năm đó có cùng tính chất với năm 2020 như mô tả, ngược lại ghi “NO". Giới hạn o 1000 snS 9999 Vi dụ NAMDB. INP NAMDB.OUT 1717 YES 2021 NO
Lời giải 1 :
program namdacbiet;
uses crt;
var n,i:integer;
begin
clrscr;
repeat
write('Nhap nam: '); readln(n);
if (n<1000) or (n>9999) then
write('Phai tu 1000 den 9999');
until (n>=1000) and (n<=9999);
i:=n mod 100;
n:=n div 100;
if i=n then write('Yes')
else write('No');
readln
end.
Thảo luận
Lời giải 2 :
1.Chương trình ngắn.
2.Có đọc file.
3.Xin hay nhất.
uses crt;
var d:text; n:longint;
begin
clrscr;
assign(d,'NAMDB.INP');reset(d);
readln(d,n);
close(d);
assign(d,'NAMDB.OUT');rewrite(d);
if n mod 100= n div 100 then writeln(d,'YES') else writeln(d,'NO');
close(d);
end.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 9
Lớp 9 - Là năm cuối ở cấp trung học cơ sở, sắp phải bước vào một kì thi căng thẳng và sắp chia tay bạn bè, thầy cô và cả kì vọng của phụ huynh ngày càng lớn mang tên "Lên cấp 3". Thật là áp lực nhưng các em hãy cứ tự tin vào bản thân là sẻ vượt qua nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247