var k,s:integer;
begin s:=0;
k:=1;
while s < 66 do begin k:=k+3;
s:=s+k;
end;
write (k);
Объяснение:
Лови ответ
var k,s:integer;
begin s:=0;
k:=1;
while s < 66 do begin k:=k+3;
s:=s+k;
end;
write (k);
end;
Объяснение:
Лови ответ