BAI TOAN TIM SO DU

Viết chương trình tìm số dư khi chia SN cho 30.[r]

Bài 44: (Tìm số dư)

Đặt SN = 2 1 + 2 2 + + 2 N Viết chương trình tìm số dư khi chia SN cho 30.

Yêu cầu : Nhập từ bàn phím số nguyên dương N ( N<=50) In ra màn hình số dư r khi chia SN

cho 30

program timsodu;

var n,i, s, sd, tam: integer;

begin

write('nhap N:='); readln(n);

s:=0; tam:=1;

for i:=1 to n do

begin

tam:=tam*2;

s:=s+tam;

end;

sd:= s mod 30;

write(sd);

readln;

end