Tin học Giải đề thi tin học trẻ cấp Quốc Gia

[Issei]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

giúp mình bài Số dư (bài 2) với!

 

[Bùi Thành Công]

đây này bạn

Program So_du;
var x,n,m,y,i,j:int64;
    f:text;
    s:string;
begin
  i:=1;
  assign(f,'REMAINDER.TXT');rewrite(f);
  while i<=15 do
  begin
    readln(x,n,m);
    str(x,s); j:=1;
    while j<=n do begin s:=s+s;inc(j); end;
    val(s,y);
    writeln(f,y mod m);
    inc(i);
    end;
  close(f);
end.