Где ошибка в программе?
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.
More Questions From This User See All
Answers & Comments
Ответ:
end-1 попробуй убрать, там вроде только в конце надо