Где ошибка в программе? var

d, s, n: integer;

begin

for d := 6 to 1000 do

begin

s := (s + 1) div 7;

n := 36;

while s < 2050 do

begin

s := s * 2;

n := n + 3;

end;

if n = 60 then

writeln(d);

end;

end.

Question

Информатика: Где ошибка в программе? var d, s, n: integer;begin for d := 6 to 1000 do begin s := (s + 1) div 7; n := 36; while s 2050 do begin s := s * 2; n := n + 3; end; if n = 60 then writeln(d); end;end.

rachik141516 · Answer

end-1 попробуй убрать, там вроде только в конце надо...

Где ошибка в программе? var d, s, n: integer;begin for d := 6 to 1000 do begin s := (s + 1) div 7; n := 36; while s < 2050 do begin s := s * 2; n := n + 3; end; if n = 60 then writeln(d); end;end.

Где ошибка в программе? var

d, s, n: integer;

begin

for d := 6 to 1000 do

begin

s := (s + 1) div 7;

n := 36;

while s < 2050 do

begin

s := s * 2;

n := n + 3;

end;

if n = 60 then

writeln(d);

end;

end.