7 2019 TIN CHUYEN DE

SỞ GIÁO DỤC VÀ ĐÀO TẠO NAM ĐỊNH ĐỀ THI TUYỂN SINH LỚP 10 TRƯỜNG THPT CHUYÊN NĂM HỌC 2019-2020 Môn thi: TIN HỌC (Đề chuyên) Thời gian làm bài: 150 phút ĐỀ CHÍNH THỨC (Đề thi gồm: 02 trang.) Câu (2,0 điểm) Cho hai chương trình viết ngơn ngữ lập trình Pascal ngơn ngữ C++ Chương trình viết ngơn ngữ Pascal Var n,t,d:int64; begin readln(n); d:=0; while n>9 begin t:=0; while n>0 begin t:=t+(n mod 10)*(n mod 10); n:=n div 10; end; n:=t; d:=d+1; end; write(d); readln; end Chương trình viết ngơn ngữ C++ #include using namespace std; long long n,t,d; int main() { cin>>n; d=0; while (n>9) { t=0; while (n>0) { t=t+(n%10)*(n%10); n=n/10; } n=t; d=d+1; } cout