Viết chương trình tìm số dư khi chia SN cho 30.[r]
(1)Bài 44: (Tìm số dư) Đặt SN = 21 + 22 + + 2N Viết chương trình tìm số dư chia SN cho 30 Yêu cầu : Nhập từ bàn phím số nguyên dương N ( N<=50) In màn hình số dư r chia S N cho 30 Ví dụ :Input (N) Output 10 program timsodu; var n,i, s, sd, tam: integer; begin write('nhap N:='); readln(n); s:=0; tam:=1; for i:=1 to n begin tam:=tam*2; s:=s+tam; end; sd:= s mod 30; write(sd); readln; end (2)